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i^mox^j:^: 




h^h<P> t5£tf fe & &%l^»fe tz 
7 *<7)* 7 -f -f ^T^H^tf T 

io feoi, ^>?'ww=>(7) 

£oTu-& f*^ fi^o 
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TM-t„ ■%-mtt-^r-tz 
*Connect*{Ci|il>T *L0GIN:"<7)g| 

JjoWUfco £ »J-*A1* GUESTXA 



WWCIIC*. 



«»S(:ttSC*gJJgftSL.EA-C. 
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itfrli 5 0rF"CT/r <3#&?-y 

-7'rtSto T fc 3 - K<7)4&i|ti|5] 
U£Jl/j:-ti-£T<7)T\ mCAifck 

z.tih*5jgmft, t&mfft^ 

$ hlzim-A<»MW$:toz.Z> 
t *G7-C7-F7" ^l^itfrteU^ 
0(7)*— T'(7)±^ 3 #3^ (7. U — 
3— F)^oW*"^-**,« F 

SftCJtSrU 40&#\fc^il, 

<4Baw& ii*Tfc3-3<7)3- 
F7*n * * l=-7>ltT#;i2> Z £ T* 
"To t'Z\ T10H L fofrv \ -y * U T* 
#3<7)T\ &««£*<#< fi& 7 ~£ 
* < T*#2»ttt*T'T„ 

■7-77<7 • 
^E— >3>(Dil|g 1 

fcftStf) n m7(zB^ Ltzbcntf 
v—~P 7-1"/ • ^—-> a >T"&£, 
i: u •) c £ fi&fflm L fc£> *$ 

% y— 7 7-T7*- ^e— y3>:W, 

3- K • PV>£<7)fl3li#s£#S 

ftfe»&2>*'£&5fc<7)T\ & 
L l> u - PWJCH - x. § v * X 

^7a-y3>T'fe, Mftttzt? 

»&#*.#£ L^ tffc-3<7> 
a- F £#» LTa- kiifrC L 

K 5 *■ > h a - K£%ftl£ K 5 

fcj&*T*f* FS?->h3-F{& 

7-7 7<7- *— v 3>i:LT 

fc 4: a. J* G7-Ct l>"2 ol^TCOif 
•£T*a»LT#5£* C(7)+t-7'K 
%&> M*F (£$ U f^3 - Ft* 

Dm7, K$^>hG7£-ft-fi?-f5£ 



Dm7-G7£ ft U Dm7-G7-C£ t^ 
= j-> h • ^E-v a XZ&Tliifr 

its 3*p> J: •! feiftak* # 4 f o 

fl»J) G7 - C7 - F7 

(Dm7-G7) (Gm7-C7) (Cm7-F7) 

■7-77<7' • 

£ -?&££ I m7KT * £ 7-7 7- 
•f 7 • i E— v a >Cfc 'J * To - 

— F£3M#Lfct><7)T\ 7-7 7 
■f7*«t— *>3>fc, K5^">h- 

^e— x 3 > fr-gxftf h <r>x-h z> t 
#^bn, S!*:a&7)«J:-5fcKHlT* 

7 T 4 7* • ^E-v a Xlfc^Ttt 

7 7^v-ft-i:4^Ti^ # 




(7)3 - K £ 7-7 7 < 7(nmi%* 

ft~> TUS<7)T\ #?>*L*oT1l? 

zftl2K$7->h -t->a> 
&PW51$*5§** c*><b<7)(5-)7!)<% 
i o fco#j&«*J jWRvv* o XT 

l/:Fit>h -t-ya^l 
?LT L & 7L12V— 7 7"f 7'fcP^^- 

izm£ti\itZ><r)X\ QBmSULIS 



tzt&^£To 

15iJ)Gm7-C7 - Fm7 

G7 -Cm7-F7 

CftX* K 3 i~> h • ; E— > 3 > 
ti^tiHZzi— KJi^T<7)*lt(Z^:-3 



H7\-»jt • 3-KtK5t>h0BB« 



fcJKf $ n% tzuxu < , ?*< t 7 

h3-y^7 • 3-K(7>g-3-K£— 
'3— Kol^T(7)^N* : 7X7 i 'r — 

Key of C0tfMkT?4 7h-7 

i7 • 3— K<7)-tZ7D>^*U PS 

1->\*ir-!k.<7)J:ilzthz.£To 

Dm7 Em7 FM7 G7 Am7 Bm 7 - 5 
— B#ftfc h->y^^LTE]1^'b 

A7 B7 C7 D7 E7 F#7 

t-^^-h-7 7 
D E F G A B 

K5^->h • ^E— > 3 >_LT*(i 
*fc »; * a<7) - i: coj: -5 T*T^\ 



^-T-S^E-K^^^-Si:, J1P(7) 
7'<7H -y ? -7.^-JU (C 0% 
■£ C ) izifii > 7. <r - ;u Xfo 5 c t 

3-K{z<t^TvS^i:*>y<7)#jl 

3- K(7)*ASgja^<7)J: o C-ffi*? 

tLS*&T*r 3.(7)^^^i'fi6•5A 

^13- K(7)#x.7a(i, 3-K 
(7)fe[U, ^w-f ^-ip^giJI^tz «fc -3 T 

foc7)T*T*\ ^(7)0-^:otzitiiT 



*^3#gi: 7#@(7)^T\ it<7) 
3 - K C7)ft fe KIKE 3 - K c^mt I 

flaj)G7<7)*i^(7)«fig^ 

(*1^7< h-» 

G * B D *F 

KttDb7T\ ^c7)«fiSt^(i 
Db * F Ab * B 

Xto 

tf}sJnmt)r>X\.^Z?too Z.(Dft 

3-K^^^%^fcfeUS-r o 

Vttr L < §C U 4 T*\ Db7<7)Db 
^Abi: 1^-5 ^ii N G7Hip^^> i: G7 
<7)b5thtb9thlzAfcU, *JU^ — 
K^^— JU^L^7th3— Kt^i 
< Is&bft* x'r-Mzfc-o'Z £ to 

S*K3, G7(7)G ^ B(7)^^rDb 7 9 
7.>r-JHZip^?)^ N 'J7-V7> 



K5J (■/»«*« 
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(G7*JU?— Y7>'r—)\,£ Db7U 
t 2 '^ 7 7 >b7th7.<r-JU)(i s «^^ 
ltttZ(i|I]i;£<7)TMU— KWtf^b 

-t •& fc*( t T-itii l tz=m^i *#*? # 

0y)G7*JU^-K • *4— ;u 
G Ab Bb B Db Eb F (G) 
Db7 l JxV7 7 >b7th7.>r-;U 
Db Eb F G Ab Bb B (Db) 

- YCHJ \*U x— v a >#U#& tj 

0IJ)Db7<7)ft33-K 

Db7+5^ Db 7 -\ Ddim7, Dm6 

ZtiM J mHti >?>)-• F5 

*■ > h *3*Ttt& < v (5fr<7) u - 

K(lfcJ&fflT*#5(7>T\ ifU-^x. 

«*T N 3-K#fc<£A,#T# 

fc<7)T*£«frT#$Lj:7o 

• 3- KiifitoSiS K 5 i-> h • 

^E— v a > 
1) F5^>.fc -t-i/aXiSS 



@S tty^V- • K5^>h (*tt«;stzZ7>5rij- • K5t->s) 



Key of C 



217 



A7 



bIH7 

Eb7 
D#7 




2D7 



B7 



* 
127 

F7 




17 



C7 



bV7 

Gb7 
F#7 




H7 



D7 



b2I7 

Ab7 
G#7 



nn 



E7 



* 
b2H7 

Bb7 
A#7 



bV7 

6b7 
F#7 



17 



C7 




ruKyf 
3-r 



Um7 
Dm7 



IHm7 

Em7 



EM7 
FM7 



V7 

67 




2) K 5 ■*->!- •■=£— Ssa>> 
LT7— 77-f 7* • : E->a> 

3) K5*>h ^-vay^i: 
o^#(z*nm7"lz-fi)i:v- 
7 7"T 7" • ^E— V 3 x='ft$. 






EXERCISE 



*"f«x ^7h2^ • 3- 

\ : <n—16tifi)ti:Mf%ffl 3 iz L T<fr 

£Lfc„ ^EP(7)7JfpllZiit(7)^g 
^ti^l^-pT'To fcL3— Kii 

- F#— %T*t3*^<7)T\ #-?<>: 

(v-\*UT'li^)7-U>v(ZT£ 
Li Lii 

■991 

Dm7-CM7(7) 2 3-KCJ:5J| 
ffCTfit F5^-> h fo % y— 7 7"T7" 



■f Dm7(Z>ii LTy-7 7"f 7* • 
^E-v a >^TL It^To 
C^-t&£G7-CM7£u-9 KS^- 

>h • : E-V3>fc^£n£-ro 

© (D 

Dm7-G7-CM7 

(®IJ7-7 7Y7'-^->3» 
(©(iF5 7">h -f-va> ) 

&« \--v?X°h% CM7<7)&# 
£ftif3- K<7)Em7(zLT**1"o 
© (D 

Dm7-G7-CM7-Em7 

c«ci>A7^Aniro 
© © © © 

Dm7-G7-CM7-Em7-A7- 

A7(i*-(itti*J:7£ll;ti 
T*\ Dm7<7)-b*>^iJ— • FS 
7 u >h(Z/ J :oTl^T, #fti^zii 
^fLSTo 



'J-- K5^>K7)ft33-K 



£:, mi3- F(7)#^7j<7)^co 
(z^-^TLS^/cct^TT^ is 
■f* N L<#x.*«t»Jx /\°XJK7)J: 



03 ^7h-^ . n-KCD-ifiWSlff 




h i — ^ii^ Ti^i 3 - f *m Wiwmtfb u * r „ ^<- ^.^iz 



© (D © (D 

Dm7-Db7-CM7-Em7-Eb7- 



iiin^ *D-Db-C"^lN-5-f- 

^t:ti>Tt^t 6 f#fe* e-e 
b-D'-i: ^TK' ^ - > T-^BR 
LT^S-To 
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0=3 Q=i 



h • *—> 3 V£j£ffl Ltzb<F>X\ 
tztiLi- Kiifflz K i i-> h if 

Ttcn^— xhs £<W.^x&x< 

mm 2 

CM7-Am7-Dm7-G7fc U 5 —Jig 
Z-T*^Am7^FS#-V> • ^E 

3=1*001 £|S]i;J:-5i::#*.TiI, 
££ s Am7-D7t L>-J 7-7?< 

CM7-Am7-D7-Dm7-G7 

(G, Db) K5^>h 
L t" L D7A" ib '-X [z 'MFr? -5 3 



rte*>^'J>— • KS^->hT1iG7 
#^.TfeEm7^Bbm7» Db7(Zit^r 

(7fri\ £in ^i ^Cd:^>U ^-ti-A, 

h\ *A-X(ZiifrL4 % #b*Eil 

S-5*^RV.^-rt^T\ 3- Kit 

d:?^U'to i'##fz N fiiHL 

T-5 * <7C(7)+— {ZMftftlO — 
K38t ( =" - K MrT'tJ-g- -3 T l x 

-v a >£fctf LT L £itzi§& 
IzmZ-^^tl^lX'To 

T'tem'nt Z> %<P> Dm7H >i g 
LT*iLi^„ Dm7iz2ff£-tz 
^yj-- K5^-> MiA7*<* 
»h Key of CT'Am7(7>fW.HZf£ 
*.*fo cnT'Fit>h •■ J E— 



5 © H > x X h 




Z - 5(7)3 >x7. hTIi, ^ b £ 
A,<7)fFo fc ffl £^S L T L<* £ To 

A5i-^y*OT v Jlft^SSB 
PI (tu<7)^/cO(7)^H(Z^T(i 3 
b #1 N fc <7)f ^T ) (7) 3 O T*f o 

BASIC, MuSICA, MIDI, ZtlZ 
i^Tl^tztz^Tbtf-oZ 9 TT 
£\ MuSICAfcftffl LTU5J&&U: 



*u$ww&n 



TH]«#5000R£iI L_b(f S "To 



H 


=P107-24 


■M 


n»S5^Em»LH6-ii-i 


7m 


7.U-I7SWJJWb 


■ 


(ft) 7^7*- 


5* 


Msx^73s;>3i»aj 


■i 


CmSOOZv^hfR 



OKINAWA 



byUUTfi^ 






4t5ttt6U<ft5li1'«:. 



1 'save "A:0KINAVA .PSG 

10 : CLEAR 200: DEFINT A-Z: DUMH Y = RND (-T 

IME) 

20 : PLAY"tl20slln256": SOUND 7,&B111000 

30 : NC$="CcDdEFfGgAgB" 



CM7-Am7(A7)-Dm7-G7 
A7teEm7-A7£ in V.— 7 7 -f 
-7°[zLXfr£L£.i 
CM7-Em7-A7-Dm7-G7 

© (D 

CM7-Gbm7-B7- 

© (D © © 
Em7-A7-Dm7-G7- 
B7tA7(i-t2*>^'J— F«* 
>hWJ, #ti^(Z^TLS-To 
*LT, «^(zK5^>h^ftiI 
=J— K(zLT#3:To 

© (D 

CM7-Gbm7-F7- 

© (D © (D 

Em7-Eb7-Dm7-Db7- 

tztz(DAm7i]\ Z Z 3 X^gio U 

^L/z ZZ-Ck^-^tZ-^g 

-f-Si:, Gb-F-E-Eb^l^^^^T 

iA^S^ T.A-X(Zil^TLT 



^^^iS^z^x.Tu^T N g^> 

i 'J (7)-f@tt^r-ft-3 Xl^X<tz$ 

ti£i£A,ijK C^oTMLT 

Si\ l^t'(7)z]-Ffcf^-5)Z 
fcA^^SttfTTo fc*>5A,x 

#14X^0 T^T < tz$l\ 

<7>T\ UOfcJ;fJ5:»7b^#<, 
t» < r>fr<nzi—t— tf%-hX L $ 
l/IUfc, ^L^IZLTU^A, 

-hLJfo *^^^A s 'b(?)Q&A 

*\ f^ar-ffl -3 fc z £ £ *r £** 

SLST(7)T' N ^4-^T'fci 
r>X<tz$l\ hX%[$ZZ\h(F) 
=l>7^^ h^[5]L:,MUSICW0RK- 
SHOPf^ST'o 



100 : C$="CEFGB": L$="16 8": CL=LEN(C$) 

110 : 0=4: N=2 

120 FOR R=l TO LEN(L$)*2 

130 N = N + (RND(1M.5)*2 + 1: IF N <0 OR N>C 

L-l THEN 0=((0+SGN(N-(CL/2))) MOD 8): N= 

((CL+N) MOD CL) 

140 D$="N"+STR$(12»(0-1)+INSTR(MC$,MID 

$(C$,l+N,l))-l)+";"+MID$(L$,2*R-l,2) 

150 PLAY D$ 

160 NEXT 

170 : GOTO 120 



y-Zjk5a-5*y£Bn 



V— ttU7> 



■x-y-y? 



byf^Bgil^ 



5^XZf-fo VUZ\z:7Syis-V- 



©B^yy)lz:A 

fr1zl\\zM&f?m< : bO)j?l\l\ts£>o 
7tJUzT-Jb©g(S@0^^/d:< Ur 
g?ol§:< UfcgotfdJfrofc/ftti, 



10 • i y-^ur>-j j:o " 7f-r->-7' 

20'MSX Turbo R#ffl SiS^- 

K -CiJf^ 

30 'I?B A S IC/msx-mus i c/ 

50 'ji»&5t ASCII-MSX BSX03858 PC-VA 

N PPE48371 

60 ' NIFTY-Serve QGA03266 J&P HO 

TLINE JH111291 

70 KEY 0FF:CALL KANJI3:CALL MUSIC (0,0,9 
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) :PLAY # 
-Z:ON ER 
TO 90 
80 RESUM 
90 ON ER 
B 300 :PN 
NTERVAL= 
100 INTE 
110 IF E 
INPUT A 
120 PM = P 
:COPY (5 
PN:LINE 
130 INPU 
140 J=IN 
M(I)=J:L 
,BF: J=J+ 
150 SET 
:D = N(J) : 
(16+PA.F 
A=-(PA+1 
160 IF C 
00 

170 C=l: 
180 '--- 
190 REST 
LL AUDRE 
1(N),F2( 
N:READ F 
200 FOR 
N)«4:PX( 
210 OPEN 
ZF = 

220 GOSU 
$ FOR IN 
230 IF Y 
COPY (0, 
COPY (50 
Y-l 

240 D$=" 
TO K:GOS 
250 PRIN 
260 D$=D 
,16) :RET 
270 IF Z 
:IF A=0 
280 RETU 
290 '--- 
300 SCRE 
:PUT SPR 
310 CALL 
R 10 

320 FOR 
330 LOCA 
N " X 
340 LOCA 

y j ■ 

380 SET 
390 COLO 
400 COLO 
410 COLO 
420 NEXT 
430 REST 

440 FOR 
9)-(X-3, 
450 FOR 
TO (30 
460 REST 
470 REST 



2,"S63V15":COLOR 15 , , : DEFINT A 
ROR GOTO 80:CALL RAHDISK (256) : GO 



E 9 
ROR 
= 0: 
T G 
RVA 
OF( 
S # 
N:P 
0,1 
(50 
T # 
STR 
INE 
1:G 
PAG 
CAL 
1(D 
)•( 
= 



GOTO 0:N 
SET PAGE 
OSUB 170 
L ON 

1)=-1 THE 
l:GOTO 11 
N=-(PN+1) 
79) - ( 132 , 
, 1 20) -(13 
1,D$:I=0: 
(J,D$,"1" 

(PX(J),1 
OTO 140 
E PN:IJ I 
L AUDREG( 
)) :CALL A 
PA(8) :NEX 
THEN GOTO 



A$="H:DATA.$$$" :GOSU 
PN,PN:GOSUB 190: ON I 



N CLOSE:OPBN NA$ FOR 



•(PN<2) :SET PAGE ,PN 

120), PM TO (50,180), 

2, 120), 11 

J = l 

) :IF J)0 THEN 1=1+1: 

20)-(PX(J)-l,121),12 

>0 THEN FOR J=l TO I 
32+PA.0) :CALL AUDREG 
UDREG(32+PA,F2(D)) :P 
T 
160:ELSE C=0:GOTO 1 



INTERVAL OFF:RETURN 



ORE 1310 : FOR 1=0 TO 7:READ A$:CA 
G(I,VAL(A$)) :NEXT:READ T,N:DIH F 
N) ,PX(N) :K=(N+15)/16:FOR 1=1 TO 
1(1) ,F2(I) :NEXT 

1=1 TO N:PX(I)=130-INT((I-1)«20/ 
I)=PX(I)+(PX(I)=PX(I-1)):NEXT 
NA$ FOR OUTPUT AS # 1 : Y Y=60 : 1=0 : 

B 270:IF A=-l THEN CLOSE:OPEN NA 
PUT AS #1:RETURN 

Y)=0 THEN 1 = 1 + 1 : IF 1 = 8 THEN 1 = 0: 
YY/2)-(81,YY/2),3 TO (50, 120), 0: 
,179)-(132,120) TO (50,180) :YY=Y 

":GOSUB 260:IF K> 1 THEN FOR J = 2 

UB 270:GOSUB 260.NEXT 

T #l,D$:GOTO 220 

$+RIGHT$(STRING$(15,"0")+BIN$(A) 

URN 

F)0 THEN A=0:ZF=ZF-1:ELSE READ A 

THEN READ ZF:ZF=ZF-1 

RN 

EN 5:FOR 1 = TO 3 : SETPAGEI , I : CLS 
ITE 0, (0,216) :NEXT:SETPAGE 0,0 
KANJi:SCREEN 5:SETPAGE 3,3:COLO 

1=1 TO 15:COLOR=(I, 0,0,0) :NEXT 
TE 3,3:PRINT "" SORCERIA 



TE 3,5:PRINT 



* - r - y 



PAGE ,0:FOR 1=1 TO 7 
R=(10, I, 1-1,1-1) :CALL PAUSE(50) 
R=(10,I,I-1,I ):CALL PAUSE(50) 
R=(10,I,I ,1 ):CALL PAUSE(50) 

ORE 730:GOSUB 530 : ' 1~3V -y' *3">7 

1=0 TO 18:X=130-I»4:LINE (X-3,11 

55 + 1) ,l:NEXT:'yyl>' <>A' y *M 

1 = 1 TO 2:COPY (30 , 20) - (225, 190) , 

,20),I:NEXT 

ORE 830:SET PAGE ,0:GOSUB 530 

ORE 870:SET PAGE ,l:GOSUB 530 



480 R 
490 R 
500 F 
:GOSU 
510 G 
5 20 ' 
530 R 
= VAL( 
540 X 
" + MID 
550 C 
560 C 
" + H I D 
570 R 
"+MID 
580 H 
MID$( 
590 G 
MID$( 
600 N 
610 
620, 
620 R 



ESTORE 910 
ESTORE 950 
OR 1=0 TO 
B 530:NEXT 
OTO 1000 



:SET PAGE ,2:GOSUB 530 

:GOSUB 530: ' ft? *•? 

2:SET PAGE ,I:RESTORE 970 



630 

640 

650 

660 

670 

680 

690 

:IF 

700 

710 

+ P*M» 

30 

720 '- 
730 DA 
P289B4 
740 DA 
97649A 
750 DA 
C255BD 
760 DA 
2.L9A5 
770 DA 
327884 
780 DA 
3721, F 
790 DA 
2C792F 
800 DA 
969BAE 
810 DA 
2,L9BA 
820 DA 
1,L9BA 
830 DA 
6.L959 
840 DA 
6.L978 
850 DA 
6.LA57 
860 DA 
6.L924 
870 DA 
6.L959 
880 DA 
6,L988 
890 DA 
6.LA67 



EAD A$:X1= 

"&H"+MID$( 

2=VAL("*H" 

$(A$,8,2)) 

0=VAL("*H" 

1=VAL("&H" 

$(A$,7,D) 

R=VAL("&H" 

$(A$,8,D) 

=VAL("*H"+ 

A$,7,l)) 

=VAL("4H"+ 

A$,9,l))»2 

=VAL("&H"+ 

N INSTR("» 

630,640,65 

ETURN:'» 

INE (XI, Y 

INE (XI, Y 

INE (XI, Y 

AINT (XI, Y 

IRCLE(X1,Y 

ET PAGE, 3: 

lNE(0,I)-( 

=3 THEN J= 

=I+G:IF I< 

OR P=0 TO 

G+N),3 TO 



VAL("SH"+MID$(A$,2,2)):Y1 

A$,4,2)) 

+MID$(A$,6,2)) :Y2=VAL("&H 

+MID$(A$,10,1)) 

+ HID$(A$,6,D) :C2=VAL("&H 

+MID$(A$,6,2)) :C4=VAL("&H 

MID$(A$,6,D) :C=VAL("4H"+ 

MID$(A$,8,D) :M=VAL("&H"+ 

-1 

MID$(A$,10,2)) 

LBFPCG",LEFT$(A$,1)) GOTO 

0,660,670,680 

1)-(X2,Y2),C0 :GOTO 530 

1)-(X2,Y2) ,C0,B :GOTO 530 

1)-(X2,Y2) ,C0,BF:GOTO 530 

1) ,C1,C2 :GOTO 530 

1),RR,C4 :GOTO 530 

J=0:I=0 

H.I + G-1) ,C+(J = 0) ,BF: J = J + 1 



N+20 GOTO 690 

2:COPY (0,10+P*M»G)-(H,10 

(X1.Y1-N/2) ,P:NEXT:GOTO 5 



TA FIE 
3.L269 
TA F30 
732, P9 
TA PBB 
552, LA 
TA L9B 
5BA552 
TA P96 
B4B.F3 
TA L49 
403142 
TA C73 
1.CB79 
TA CB7 
2.CB79 
TA LB7 
C9BBB2 
TA LB7 
C9BBB1 
TA L99 
D9B9B6 
TA L95 
89D8A6 
TA L9D 
8A87D6 
TA LAF 
1DC404 
TA L98 
B9B9A6 
TA L95 
79D896 
TA L9E 
8A97D6 



14E1BE 
B2A9B1 
91319B 
86532, 
4C32.L 
C19A51 
328732 
,L8A73 
6422, F 
41E827 
1E3428 
3D1.F3 
2D061, 
6232, P 
961C2, 
6033, P 
73DC73 
,PD596 
73DC73 

A79BA6 

.L9599 

929B93 

,L9985 

7FA283 

.LA976 

74B17A 

, » 

A59BA4 

.L9598 

919B92 

,L9A84 

7EA282 

,LAA76 



E.F237 

,F2E91 

8.B874 

BBA4BB 

AC19C2 

92,LA5 

2,L873 

97732 

984BB3 

63.L34 

E,P341 

B36473 

P732D2 

B79682 

PB7962 

B79643 

2.L9CB 

22.PDB 

1.L9CB 



82DB41 

2F9B3 

68A732 

D552 

192, LC 

199B32 

287462 

558, F8 

778277 

EEE.C4 
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1.F722 



,C289B033, 

,P884732,B 

219C2552,L 

2 

,L9A649A55 

5788DB47,F 

2 

137061, P41 



774331, F6D 
2,LB796B7732,L9B 
,LDC73DCBB 
.LDC73DCBB 



BDCBB2 

BA12 

BDCBB1 



6,L97A39BA26,L96A09B9F 

9B986.L95969B966 

6,L958E9B906,L968B9C8D 

9E886,L9B82A0856 

6,LA07CA4816,LA27AA67F 

AB7C6.LAC75AE7B6 

6,LB374B47A6,LB674B67A 

6,L97A29BA16,L969F9B9E 

9B976.L95949B956 

6.L968D9B8F6.L978A9C8C 

9F876.L9C81A0846 

6,LA17BA4806,LA379A77E 

AC7C6.LAD75AF7B6 
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900 DATA LB174B27A6.LB474B57A6.LA4 20C961 

4,* 

910 DATA L98A49BA36,L97A19BA06,L969E9B9C 

6,L959A9B996,L95979B966,L95939B946 

920 DATA L95909B916,L968C9C8E6,L97899D8B 

6,L98869E886,L9A839F866,L9C80A1846 

930 DATA L9F7DA3816.LA27BA57F6.LA479A87E 

6,LA877AA7C6,LAB76AD7B6,LAE75B07A6 

940 DATA LB274B37A6,LB574B57A6,LC920A461 

4,» 

950 DATA G8E96361046.G9296772028,G8A6987 

2114,G9369361128,G8A50E8100A 

960 DATA GB45068101E.F000014D40,* 

970 DATA CB741063,PB74133,CB741028,PB741 

88,LB141AC193,LAC19C2193 

980 DATA LBD41C2193.PB71A33,* 

990 ' 

1000 SET PAGE ,3:X=0:Y=0 

1010 READ A$:I=1:IF A$="END" GOTO 1270 

10 20 C=VAL("&H"+MID$(A$,I,1)):L=VAL("&H" 

+MID$(A$, 1+1,1)) 

1030 LINE (X,Y)-(X+L,Y),C 

1040 X=X+L+1:IF X>80 THEN X=0:Y=Y+1 

1050 I=I+2:IF I>LEN(A$) THEN GOTO 1010:E 

LSE GOTO 1020 

1060 DATA 0F0F0F0F08F00709F000F000F00F0F 

0F0 7F000F000F0050AF000F00F0F0F09 

1070 DATA F2060BF30F0F0F05F60403580F0F0F 

0952F001530254015100F00F0F0F0952 

1080 DATA F00151010263026101F00F0F0F0862 

026101026 30 2620F0F0F0A6202610102 

1090 DATA 6302630F0F0F096301610102740272 

0F0F0F0973017 10 103740270027301 77 

1100 DATA 027401780077007300750173017101 

0474047500720272007601720171017 2 

1110 DATA 027200710273027100710071010593 

04920092009103910093009 2009 20192 

1120 DATA 019103910091029000910291009100 

91010680918002809200918000809000 

1130 DATA 810080938001809001809102920080 

900081009080009102900090800 28090 

1140 DATA 009100908001065082500150820081 

50005081500051835001508100508100 

1150 DATA 500450820050805000810181008050 

02508000810080500103500254005300 

1160 DATA 5200560053055402F0005601510151 

005 20151015301025 20 2580052005101 

1170 DATA 5101530250015200500052F0510151 

02510150015201510153010263026700 

1180 DATA 620061016201620162006201620161 

01620161016002610161016301036202 

1190 DATA 630065016102610163006101620161 

026102610161006102610161026 20104 

1200 DATA 710273017301730172017401780073 

0178017300710 27 2010 2F0007101740E 

1210 DATA 710F0F087102720100F000F0008800 

82608460830081018 260846088608660 

1220 DATA 85028203810101F188008260846084 

00820182608460886086608401840281 

1230 DATA 0101F0980092609460960082019260 

9460986096609300960 19 10 100F000F0 

1240 DATA 0F0B810F0D600F0F0F00810F0D6100 

600160090F0F00810F0E630060090F0F 

1250 DATA 01810F0D600162090F0F02810F0D60 

0060006 2070F0F03800F0F6001 600 80F 

1260 DATA END 

1270 SET PAGE 0,0:FOR 1=1 TO 4:C0L0R=(I, 

1+3,1+3,1+2) : COLOR =( 1+4, 1+3, 1+3,1+1) :NEX 

T 

1280 COLOR* (9, 7, 7, 6): COLOR= (11 ,5, 5,4) : cO 



LOR=(12,6,6,5):COLOR=(13,5,5,4):COLOR=(l 

4,3,3,2):COLOR=(15,7,7,7) 

1290 RETURN 

1300 'y-t'jry * - r - v 7 

1310 DATA 23,17,0,4,237,226,176,178 

1320 DATA 6,39 

1330 DATA 181,22,192,22,216,22,229,22,2, 

23,32,23,67 

1340 DATA 23,172,24,181,24,192,24,204,24 

,216,24.229 

1350 DATA 24,242,24,2,25,16,25,32,25,67, 

25,172,26,181 

1360 DATA 26.192,26,204,26,216,26,229,26 

,242,26,2.27 

1370 DATA 16,27,32,27,67,27,172,28,181,2 

8,192,28,204 

1380 DATA 28,216,28,229,28,242,28,2,29,3 

2,29,67,29 

1390 DATA 0,10,2048.0,8,64.0,8,16,0,7,20 

48,16456,0,7,2112,0,8,64,-32768 

1400 DATA 0,8,16384,0,17,16448,0,8.18448 

,0,8,16456,0,7,512,16916,0,7,16 

1410 DATA 8,0,8,16400,0,8,-15352,0,26,16 

400,4096,0,15,8192,584,16384,0 

1420 DATA 6,512,0,8,4,0,8,2.584,0.26.520 

,4 096,0,7,128,0,7,16 384,584,16384 

1430 DATA 0,6,512,0,8,4,0,8,2,584,0,17,7 

2,0,8,144,0,8,72,0,7,-32768,576 

1440 DATA 512,0,5,2048,512,0,4,16384,0,3 

,128,0,1,2048,0,5,16384,16,0,3 

1450 DATA 2,0,4,2,16904,0,5,64,0,5,512,0 

,1,2,16512.0,2,64,0,5,512,0,1,2 

1460 DATA 16448,0.2,4096,0.4,16384,-3014 

4,0,34,16384,-3059 2,0,34,16384 

1470 DATA -30144,0,34,16384,-30576,0,34, 

2050,0,8,64,0,9,-3 2768,0,8,16384 

1480 DATA 0,8,9,0,8,16,0,8,64,0,16,2048, 

8196,-32768,0,6,32,0,8,2,8,0,8 

1490 DATA 9232,0,17,320,0,17,72,0,7,2048 

,0,8,64,0,9,-32768,0,8,16384,0 

1500 DATA 8,9,0,8,16,0,8,64,0,16,2048,20 

,-32768,0,6,128,0,8,2,64,0,8,8 256 

1510 DATA -24576,0,16,1092,0,17,2120,0,2 

,1024,0,2,2048,0,1.2048,0,8,64 

1520 DATA 0,9,-32768,0,8,16384,0,8,9,0,9 

,16384,0.8,16384,0,8,8192,0,6,16 

1530 DATA 40,8192,0,7,16384,0,8,552,0,8. 

40,16384,0,16.1,0,17,12.16384,0 

1540 DATA 6,1024,0,8,16,0,9,-32768,0,8,1 

6384,0,8,16,0,8,8,0,8,4,0,8,1,0 

1550 DATA 7,16384,17,0,7,1024,0,8,64,16, 

4096,0,6,4,0,1,5120,0,16,148,0 

1560 DATA 17,2120,0,7,2048,0,8,64,0,9,-3 

2768,0,8,16384,0,7,4096,8216,0 

1570 DATA 7,256,0,8,8,0,9,-32768,0,7,819 

2,536,0,7,512,0,8,64,0,8,4,0,8 

1580 DATA 1,40,0,8,512,0,8,32,0,8,8,0,7, 

10 24,8712,0,7,16,0,8,2,0,9,-24048 

1590 DATA 0,26,64,0,16,1024,8712,0,7,16, 

16,0,7,2,64,0,8,-2404 8,0,17,8,0 

1600 DATA 8,4,0,16,4096,8264,0,7,256,0,8 

,8,0,9,-24 304,0,26,64,0,16,4096 

1610 DATA 8264,0,7,256,16,0,7,8,64,0,8,- 

24 304,0,17,8,0,8,4,0,8,81,0,7,16384 

1620 DATA 1,8,1024,0,8,256,0,8,64,0,18,- 

32768,0,8,8192,0,8,2193,0,45,2048 

1630 DATA 0,8,4096,0,8,16384,0,8,4096,0, 

6,204 8,5,204 8.0,6,256,0,8,64,0 

1640 DATA 8,2,0,9,-32768,0,8,8192,0,8,20 

48,0,8,512,0,8,73,2048,0,33,-1, 
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LIST® P3H¥«#«>5 



10 SCREEN 5: COLOR 15, 4, 4:CLS 
20 DEFDBL A-Z:OPEN"grp: " AS #1 
30 S=0:LINE(0, 0)- (199, 199), 1.BF 
40 X=RND(1)*200:Y=RND(1)*200 
50 IF X * X + Y * Y < 40000! THEN 

C=8:S=S+1 ELSE C=4 
60 PSET (X, Y) , C 
70 L=L+1 :P=4*S/L 
80 PSET (0, 200), 4: PRINT #1,P 
90 GOTO 40 



mm 




L 


j£©*8» 


(X.Y) 


ti*tj^>mw 
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nmm 


S 


P3©f0jS©» 
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;ot-=i-K 




aimb^a.5<b 



T'77 >%l^-(Diy 5 j. U— *s a 
>*LXfr£i 
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T 


momtmf& 


S»£ 


R 


l m©^™ 


S 


^u-rs7?[qi 




(XI, YD 


«»*©&«! 




LIST® 75*>tt?®i 


mm 


100 INPUT "T(r20) "jT 


110 INPUT "R(T30) ";R 


120 SCREEN 5 .-COLOR 15, 1, 1 :CLS 


130 X1=128:Y1=106 


140 FOR 1=1 TO T 


150 S=RND(1) *3. 141592#*2 


160 X1=X1+R*SIN(S) 


170 Y1=Y1+R*C0S(S) 


180 NEXT I 


190 PSET (XI, Y1) 


200 GOTO 130 



5t, 



[T£R(7)A7j£;£#>b 



ft&o Rl£&WlMX'T1) <i t<nm$!. 

ffllWWSH^RfcffllMttJU tti 

xm-TFT&o 






T'T\ 1120~1230^t 

X7?_-f 2=^&fc, 









LIST® ^JK©®«£:Rto5 


1000 


SCREEN 5: COLOR 15, 1, 1:CLS 




1010 OPEN "grp: M AS #1 




1020 


DIM Y(255) :GOSUB 1120 




1040 


S1=0:FOR 1=0 TO 255 




1050 


S1=S1+200-Y(I) :NEXT 




1060 XR=INT(RND(1) *256) : YR=INT (RND (1 ) *200) 


1070 


L = L+1 :IF Y(XR) <= YR THEN 


SR=SR+1 


1090 


PSET(0, 200), 1 : PRINT #1, SI 


" "51200!*SR/L 


1100 


GOTO 1060 




1120 


CLS:Y1=106:Y0=106:X1=0 




1130 


LINE (XI, Y1)-(X1, 199), 4 




1140 


LINE (XI, Y1-1)-(X1,0),0 




1150 


S=STICK (0) :Y0=Y1 




1170 


Y1 =Y1 + (S=1 ) - (S=5) + (S=2) - (S=4) 


1180 


Y1=Y1+(Y1=200)-(Y1=-1) 




1190 


IF S=2 OR S=3 OR S=4 THEN 


1210 


1 200 GOTO 1 1 30 




1210 


Y(X1)=Y1 :X1=X1+1 




1220 


IF XI =256 THEN RETURN 




1230 


GOTO 1 1 30 





Y( ) 
(XR.YR) 



mmonw 



L 
SR 



fU8B#©j5i0» 




m i &z>frffizftLxfotztz?>,j>WM±.tete< s& 

<Dmm&hiX,±ffl^~itzt>bXi>\:*%:^Vt*4« 
-VlzM£t>%:\\b\>dbVX\ ^EHi-TOMSL 
frmJtXZ%:\<>Vt\$Lm%miXMA,XfoJ:ob!&? 

Omm^yy^ line 

4-!U[iSCREEN8?r^l\ 256fe 

PSET 



£T\ ##fc*§jjifi:: 1 \-'-y K££ 



ftSK. 



Listl g*zP7>K£l;tcfct3 

5 "PSET 

10 SCREEN 8: CLS 

20 DEFINT A-Z:A=RND(-1) 

30 X=INT(RND(1)*256) :Y=INT(RND(1)*212) 

50 C=INT(RND(1)*256) 

60 PSET(X.Y),C 

70 GOTO 30 



5 'LINE 

10 SCREEN 8: CLS 

20 DEFINT A-Z:A=RND(-1) 

30 X1=INT(RND(1)*256) :X2=INT(RND(1)*256) 

40 Y1=INT(RND(1)*212) :Y2=INT(RND(1)*212) 

50 C=INT(RND(1)*256) 

70 GOTO 30 

(D 60 LINE (X1.Y1)-(X2.Y2).C 
© 60 LINE (XI, Y1)-(X2, Y2),C. B 
@ 60 LINE (X1,Y1)-(X2,Y2).C,BF 



CIRCLE 



&R£i§UKTifc«>T % £*A,£X 
^fT5 

(S), *r78£(E)* **&£U 

> (-#£<7)]I,£fc £ LT.S 

*)Tft£T*. 

(D<D<7) S 43 E fc v -f #• 7. E L T * 

t^T-#S 



1sH::tfcfc*>5A,"e#S 



PAINT 



MLtzb<ntzttt\ \.\*.tft~*X 

n Ovi; L«ii„ * * 1 e^H (**?• 

m u -^ l t < ns £ l ^ mw£ 

mmtz 




5 'CIRCLE 

10 SCREEN 8: CLS 

20 A=RND(-1) 

30 X=INT(RND(1)*256) :Y=INT(RND(1)*212) 

40 R=INT(RND(1)*212) 

50 C=INT(RND(1)*256) 

70 GOTO 30 

® 55 ' 

60 CIRCLE(X,Y).R.C 
© 55 P=3.14159265#*2:S=RND(1)*P:E=RND(1)*P 

60 CIRCLE(X,Y),R,C,S.E 
(3) 55 P=3.14159265#*2:S=RND(1)*P:E=RND(1)*P 

60 CIRCLE(X,Y),R,C,-S,-E 
<D 55 L=RND(1)*2:L=L*L 

60 CIRCLE(X,Y),R,C,,,L 

10 'PAINT 

20 SCREEN 8: CLS 

30 DEFINT A-Z:A=RND(-TIME) 

40 FOR 1=1 TO 50 

50 X=INT(RND(1)*256) :Y=INT(RND(1)*212) 

60 R=INT(RND(1)*50) 

70 CIRCLE(X,Y),R,255 

80 NEXT I 

90 X=INT(RND(1)*256) :Y=INT(RND(1)*212) 

100 C=INT(RND(1)*255) 

110 PAINT(X.Y).C,255 

120 GOTO 90 
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SMSCoAK! 




R5-^v-#-§-(7)255T'S#, k 
Sj£«(5 i: A, £JMf < tt -3 fc (t 

ft£\ ffliLINEfcfcPAINTfcW 
fcf <b*££*8^fc7°n ^7AA\ 

/ \° v =i > -> 3 -v 7<7)j£H-r ^e c# 
r-5£*\ t>-?£?S2t^'77-f 

>v ? *M5r*fe *> §eit» (7 p -y tr 

—5** ^)CA4J:^C4-3 tz 
X'h, Z0ffS2&>*}}*J Hi, 

[I fe 7°P ?? A*8W"C# £ A* t> L 

?<r)y>7°&mLXs atjts 

jbttKfci^KcuLfc),, 

* h 2 ^A^Lm «C^5Wttt 

OfrM^X < 5(7>T\ ^Ativ 
a-f*?*?**— h 1 Gv«b* 

^LTY^fto &£tev7;* 

*^*— VJU4r— T&fii&mfrU 



T£* &&Z}%ztbX'£Z *£ 
Srffi^fro/cb, [ESCl*-fr 
*¥-it-5o 7 7"Ol/*— A&Hl^T 
<*<7)T\ AafSfcf^fcT'- 

* < £ Tt»«JW8KW>T % p - 

K £ A-M > h c7»|(iftu U 

t J, D RA Wl^<7) +f 7 P V > K B 
xt(-4oT^^?nTU-g) fcfc\ 

ft-otzJ-'—9$:!§±.?%[z^ V 

7. h 3(7)7°P^7A^rf^j5 o ~ 

(7)7°p ?*7> A ZAt) L fc& £ T*> 

#..-5#-fe— 7t>fc7*-fiH&N 

MERGE (77^J^-A) 

v>?£mx*v— &?&&* l§£*S< 

T-# fc||^ £* -5 £ -5 AS* *iU: 
l\ oTfrtfft, 
fc#*C; 5K>Tif££*£<P 

7£SS7>LTfc-0 o znti^? 
y *S*—*£?55kt£<?)tz\ 

it. mztz^*wm±<n± 

# $ <75*fttzts < *\ ffiAPb°-T 

%o *<7>_hC:£/3lffflq H q <75 *7 ? 7" 



List2 W§^f>5tei7 , -f^- 

Iff DEFINT A-Z: CLEAR 700: DIM N$(100) 

2J2T NP=0:MD=0 

30 PLAY"s0t200ml0000o5132 

40PRINT"?W W77*?(Y/N)"; 

50 A$=INPUT$(l):A=INSTR("YyNn",A$):IF A=0 GOTO 50 

60 IF A<3 THEN MF=1 '?W tt* 

70 SCREEN 5.0:COLOR 15,0.0:CLS 

80 A$="":F0R 1=0 TO 7:A$=A$+CHR$(VAL("&H"+MID$("F0 

C0A09008040201", 1*2+1. 2))):NEXT I:SPRITE$(0)=A$ 

90 X=0:Y=0:PUT SPRITE 0. (0,0). 15.0 

100 IF MD THEN LINE(X1. Y1)-(X. Y). 9..X0R 

110 IF MF=0 GOTO 130 

120 A=PAD(12) :X=X+PAD(13) :Y=Y+PAD(14) 

130 A=STICK(0):IF A=0 GOTO 150 

140 Y=Y+(A=8 OR A<3)-(A>3 AND A<7) :X=X+(A>5)-(A>1 

AND A<5) 

150 IF X<0 THEN X=0 ELSE IF X>255 THEN X=255 

160 IF Y<0 THEN Y=0 ELSE IF Y>211 THEN Y-211 

170 PUT SPRITE 0. (X.Y-D.15.0 

180 IF MD THEN LINE(X1. Y1)-(X. Y). 9. .XOR 

200 A$=INKEY$ 

210 IF A$=" " OR STRIG(l) GOTO 300 

220 IF A$=CHR$(13) OR STRIG(3) GOTO 400 

230 IF A$=CHR$(27) GOTO 500 

240 GOTO 100 

300 ' ty? nr 

310 IF MM THEN LINE(X1. Y1)-(X. Y). 15 ELSE N$(NP) = 

N$(NP)+"B" 

320 , PSET(X.Y),15 

330 Xl=X:Yl=Y:PLAY"a" 

340 IF STRIG(l) GOTO 340 

350 N$(NP)=N$(NP)+"M"+MID$(STR$(X). 2)+". "+MID$(STR 

$(Y).2) 

360 IF LEN(N$(NP))>60 THEN NP=NP+1:IF NP=100 THEN 

SCREEN 0:PRINT"MEMORY FULL!" :BEEP: GOTO 510 

370 MM: GOTO 110 

400 ' t>? ty 

410 IF MD=0 GOTO 100 

420LINE(X1.Y1)-(X.Y).9..XOR 

430MD=0:PLAY"c":GOTO 100 

500 SCREEN 

510 LINE INPUTFILE NAME:";F$ 

520 ON ERROR GOTO 600 

530 OPEN F$ FOR OUTPUT AS #1 

540 FOR 1=0 TO NP:PRINT#1. STR$(10000+I*10)+"DATA " 

+CHR$(34)+N$(I)+CHR$(34):NEXT I 

550 PRINT#1,STR$(10000+I*10)+"DATA *" 

560 CLOSE #1 

570 ON ERROR GOTO 

580 PR I NT" COMPLETED.": END 

600 PRINT"DISK ERROR !": BEEP : RESUME 510 
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List3 B*7<-*a»-$MH» 



10 SCREEN 8:CLS 

20 PSET(0,0),0:DRAW"C255 M 

3J3T READ A$:IF A$="* n GOTO 

40 DRAW A$:GOTO 30 

50 GOTO 50 



50 



wmmm 

A,, HHTte),, il?Lfcf), 
if (7) 7 -y 7°£MSX<7)tV 7.7V— 
iztsbt:*iizf&r>x fotitm 

Os*3K4&draw 

Tli, So#ajT#fcDRAW^ 
lLfc^77<'^^ (PSET, 

wSi^itt^o tz£?Ll& 

PSET(50,100),10,XOR 
£ In 1 tiffiiffem $■ nx fc*fc*Wf 
(J, TlaST^ (50,100), fe## 
(7)10, ^LTPy*Jl/^U-y 
3>(7)X0Rft\ if(7)iS^ai(Z^ 

37>KB, fcU"tlV7)fc<7)# 

If li*<7) =i v > Ko 5Jtffift*r WBf 
L i \AEWC4in L T, if (7)H(zSI 
&f|.<, £^?fc<7)*fo WTCW 

DRAW "M1.2" 

5j&EH!tfrb, (l,2)(lWt$o 

DRAW "M+1,-2" 

■ftfaiz-zimrzo 

DRAW " U2" 




U(_t),D(T),R(:fe), L(£), 
E(£_t), F(£T), G(£T)s 

DRAW "C3" 

fe^r^ 7-#§- 3 (Zl^f So 
DRAW "S4" 

I£I&1W$:£ 4 -£-<7) 1 K -y h ip-li 
!?>*#>&„ *JJ8!i&£(S4o ^<7>fx 

^£A#< Uc'J'JvS< W;tt*<, 

DRAW "S4U2" 

Tli, _Lic2 £■* h&Irts::*: 

DRAW "S8U2" 
DRAW "AO" 

it o x\ &±ffmM (o, o), ;&7jft 

UXlfc, T^rSlCYW^-iftliftl 

c7)§&<S££;t3(i~3 )::£(::£ 
ot, Jl#^^90g-r'oS^-f^ 
£#T-#5 JlO^iWi, IT- 
£T, 2T*T, 3T'£_h -<7) 

HI ^ £ ffij£ (i 90£ IUIe $ -t± T4S 

£T, ;&M<7)nv>R£, £ 

ii£i-&;btt^itft£', t7'>a 

> £o it Til -5 Editor $ it £ Z £ 

foT-#£ 

DRAW "B " 

mteM^mtzim^K mt 

DRAW "BM100.100" 
T'te, ft&M* (100,100)11^-1) 



TfHfc^-*C*K Z\(Dmt* 
DRAW "N " 

m§i<it£', mmcm%mt 

DRAW "NM100.100" 
X\ m£Wrh (100,1 00) £*££ 
3'KfcttCtt*. 

£T, 4-Hl<7)]^fflli(t, PSET, 
LINE, CIRCLED £*££ffl Ltz¥— 
A^oT^fc rfrWT *|# 

* )o 

$^fc**^ttlT < &<7)T*, »— V 
Jl/*-<7Xfc&T*H3££-t!-T, 7 S 

Wfr^X L i. t?-L.*-J< 



K^X^< L, Hfc±i^.T< 
•5>(7)T-ilL < ^S turbo R^-^o 

xi^Ati, sg*s$-r?s^fc 

Ltl^t^T^I^T^Ox-f h^ 
Aft £ £ £ L T N i *ft l J t-X^ 

^fctSC, i-J>(7)Jl^C07"P -y 
9W%<t£ < 4-jTI i-5(7)T% 

^ $ \mtez* * # - A,"cii i- "c 

tzJ<7(lWh^X, Ofr-k^tz 

t$, fifL^il^i^-(7)M-tCtH 
T, u#^U5EAT'LSoca;^ 
$)S Zft(i^.tZ^x>y^^LT 

$x[ ^mttmcnmi%X"h «t 

-3 fe L *^T- # ^^^ o fc (t ^ Z? 

7<v?it£tz£ tzm^i\ m 

#(i % *fcv.o^*a„ oT^*?(t 



List4 SECD^-ABaM 

10 DIM SI(63),CO(63),X(999),Y(999):A=RND(-TIME) 

20 PRINT"f 3 ^ ?rft..":PLAY"Sj2(M5000T200L16O5" 

30 FOR 1=0 TO 63:SI(I)=SIN(I/32*3.1415927#):CO((I+ 

48)AND 63)=SI(I):NEXT I 

40 SCREEN 8:CLS 

50 HS=0 

60 0PEN"GRP:"AS #1 

70 COLOR 255:PSET(80, 128), 0:PRINT#1, "PUSH ANY KEY" 

80 A$=INPUT$(1) 

100 CLS 

110 X=10:Y=10:D=8:P=0:L=10:SC=0 

120 G0SUB 500 

200 A=STICK(0):D=(D-(A=3)+(A=7)+64) AND 63 

210X=X+CO(D):Y=Y+SI(D) 

220 A=P:P=(P+1) MOD 1000:X(P)=X:Y(P)=Y 

230 IF INT(X)=INT(X(A)) AND INT(Y)=INT(Y(A)) GOTO 

300 

240 A=P0INT(X,Y):IF A=28 GOTO 400 

250 IF AO0 GOTO 600 

300 PSET(X,Y),255 

310 A=(P-L+1000) MOD 1000:PSET(X(A), Y(A)),0 

320 GOTO 200 

400 ' ^7 5 M M 

410 FOR 1=1 TO 17 
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X 
X 



®A1£ 



Qui 




iFJitVlWIM 



DEU<IS; 

D7D 
X ODD 



D7DD 
D7D 

nnn7 



D7Dnnn 

tfeC, 8^20B££&SDIZs fc-5 



trivia iofe(Z)^^C7^ 

dSC^t *£9 D^fa^-&"C24 
05U^£o £©^IS^H-ri02 

^src^g^-c&uAizisn 

l\T*So §§©?&£ X x %©£*£ 
Vs ^Zlffl^Zt^-Si, 

x + y + z=24 © 

2x+4y+8z=102 <2> 

2(24-y-z)+4y+8z=102 
•••y=27-3z ® 




420 CIRCLE(X.Y), 1,20+1 

43J2f NEXT I:PLAY"CE":SC=SC+1 

440 PAINT(X.Y), 0,227 

450 CIRCLE (X.Y), 17,0 

460 GOSUB 500 

470 L=L+10: IF L>999 THEN L=999 

480 GOTO 300 

500 ' *7 h K 7 M 

510LINE(1,1)-(254,210).224.B 

520N=INT(RND(1)*200)+28:M=INT(RND(1)*180)+16 

530 CIRCLE (N,M). 8. 28:PAINT(N.M). 28. 28 

540 N=INT(RND(1)*200)+28:M=INT(RND(1)*180)+16 

550 A=INT(RND(1)*255):IF A=28 GOTO 550 

560 LINE(N-7,M-7)-(N+7.M+7),A.BF 

570 LINE(N-8,M-8)-(N+8,M+8),255,B 

580 RETURN 

600 ' Y-k i-K- &! 

610 FOR 1=1 TO 100 

620 LINE(X.Y)-(INT(RND(1)*255), INT(RND(1)*212)),28 

630 NEXT I 

640 PSET(92. 128). 0:PRINT#1. "GAME OVER" 

650 PSET(92, 144),0:PRINT#1. " SCORE:" ;SC 

660 IF SOHS THEN HS=SC 

670 PSET(92, 160). 0:PRINT#1. "HI-SCORE:" ;HS 

680 PSET(80. 176). 0:PRINT#1. "PUSH SPACE" 

690 A$=INPUT$(1):IF A$<>" " GOTO 690 

700 GOTO 100 





100 'SAVE"JUL-1991.BAS" 

110 DEFINT A-C.X-Z ■ 

120 A=2:B=4:C=8 

130 X=1:Y=1 

140 Z=24-X-Y 

150 IF A*X+B*Y+C*Z=102 THEN 180 

160 Y=Y+1:IF Y>21 OR Z<2 THEN Y=1:X=X+1:IF X=22 TH 

EN END 

170 GOTO 140 

180 PRINT USING "W=## */=## }3=M Ml* 7-/=###*>" 

;X;Y;Z;X+Y+Z;A*X+B*Y+C*Z 

190 GOTO 160 
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113 



£i\z>T$,tfmgttttsn&o x N y, 
zis s ^n^nitommzm,^ 

z(S1~8 0M^o s&eu ztf 
1©£S&y=24£&9s ©ffiiS 

rx©e^a^u<«:s©"Cs m 

mi fc21 9=) 2 

S3 «18 -9D3 

S5 SI15 9D4 

S§7 mf\2 9=] 5 

ms mq 50 e 

.6 507 
,3 -9=18 
'tStk Tjm^TLTT&Z^ 

sis &mm(DumK&hj a 

® ®@ ooo 
® oo 
o 

±ffi^l£s **_ti8£W©OB\ 



JbC< o^t \T I, \-5/3\£^©O0 

mtfAz" <t[,\z>mm\zm-DX\T, 
®.^ffAnz&z> -nsoso 

IS^^^A-DT^lM^dx Z(DO 

\z 1 -lOffl^^^Anr, c©^ 

ioi©ras^o $^S5s 5ITC1 
fo*ftt£> BASICTSKffiKS 

otv x-<7,9C-tz-yLrso 

"CQo BASIC&W©BS£®^> 
£55^o *KIZfBg<^ 7DC^ 

L*%mfj&i±zmft\±iZ)&v\zft 

IV turbo RfflA^v ZSOt-K 

zm(,\zkzteo %mm\zi3. s b 

BWte 8^20B(^B^ED^5S))o 

^^isio^ 8 b^^®. mv#h 

^^©"CLc^Mo 
Z5Z%mZ(D£&<0o ttBffv Be 

Etu®sm%m-5zm'$o 



7&-CZ5t 



=107-24 
^«S5^EmSOJ6-11-1 

zv-xz&mh&i 
Msx^nvywmm 
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MSX turbo R 

b\ MSX-C Ver.l.2o S^©A-^a>tx-r L/^K 

tom£s teffl±©a*»E*«>i::a3Sttu<«o 



CMlStf) 

MSX-C^r^oT C C7)7°P &*?& 
£:3>/\ <;u-f-S>¥JiI(i, *<7)|§| 
(7)£fcM D0S1ffl<7)*Ver.1.1*T' 
b, DOS2ffl(7)*Ver.1.2"T*fe(5£ 

A, i:'i5) l: /Co m*<nmft&X"£ 
fc {j 'tools" e -f £ ft 5 fl-SB =i 

i nmt * it *i *, * ft^ y (7)ii 

'&mt£j' : E u -a^ < Tf Co 
3fcC* =i w^ 7— £7* -tz>77 
-i 'J >a— A<3BLs£L"Ci**rfr»bx 
-fu?=7L.<r>— gp&£CT\ ^^ 

P, /\*-yf 1 7 7"f-'U^RAM7 : -V^ 

* %->sffl-rft(fx wmm^M 
bn'pLnLiwmisXio mi) 

<7)*CF.C0M*(J* *C7n>hi> 
K" £l^lB*<7>7 , n?' : 7AT\ 

C<7)V— *7W.H'£'^#— 7 
7-OU£S&&#-s 5:>*tz-g-oT 

05*r*£^U*T-Code' / ,>:i^<t J 
raMS7T-fJU^f^4SI5^o 

#include 

#define 

#ifdef 
<7)«fc7&\ UJbW>£ *7U7°P-tz 



::T^^llfc *T - Code" 7 7 

;<-?-)c7)ifr£M£*£^T-5<7) 
fi\ *FPC.C0M* o ttUzm^X, 
*zi— Kvx^U— ? — "£^S: 
n£(7) *CG.COM*A\ *T-Code" 7 7 
-OU£frcA,T\ 7-tz>7 l J-mig 
<7)7 7"OI'£-fMT5o 

*>fc#H *T-Code*tt. CPU(7)*I 
HdlKfr L^oJiJ, *CF*l J 
CPU(7)®i(Zfl!c# L &fc ^MH £> 
*CG"lJZ80m<7)^I£fr& ^ „ 

MS-D0S£1$r>TMSX-D0Sffl<7) 

7p 7 s ? a £#6 J: 3 & •£ p * 

PWH-v-* lziSLT^£A\ 
1*$<7)£;:*>*MSX-C Ver.1.2*ffl 
<7)^ P 7. u >/\°-f 7— lifcl.\, 

* fc^CF'tfcpUOTflBitztefc 

Lttfc»fefeC« *sizeof*3llf ; ?-(7) 
iH ^Izftmfit&Zo tz £ A.& 

char a [sizeof(int)] ; 
£ttt-$SJK$( ^<(7)p>/\°-f 7 
-TliPnWj:<MiI?ft3o £~ 
%#*, MSX-C(7)*CF"T1i, *inf 
(7)*#?A < Z80ffl<7)2/\*-l' hft<7) 
*\*5l^i386^68000ffl(7)4^\* 

-r \-u<nfribfrtit£\.*r)X\ torn 
-^^my-r-oh osu*M8o" 

(7)7 — 77 7<M ! T'§5„ Zft 
£H,ftl£ *MSX-C*(7)4$iK\ C 
£1&«!§<7)7P ^7 A<7)Pf t/ttl L 




CG.COM 



♦.MAC 



I 



T-t^7*7- 

M80.COM 



*.REL 



L80.COM 



i 



(*.cc 



FPC.COM 



7^7*7!)- 



7^ 7 #- 
SBUG2.COM 



• MSX-CT-<7)=] W\° 

xfi-tztntf^ z<nm a 

Ver.1.1T't>1.2T'fc 

nfcss**'. c=i§ 

^TOOLSICMaLfc 
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H-5*l-/aJllit» 



T<P=^)l'7VJf/7, 



V 



PATHnv^FO^TVaV 



^ 



/f<y# 7 t4 JU7)*CENV.BAT* 
DOS 2 CO *PATH* =1 V > K (I (is 
tfhr>tz Ztlti. MS-DOS(Zt> 

U^t dntzmfetzc 

tztz.& 

PATH +A:¥;A:¥BIN 
<7)=fco(I, *+*f £•*§-£#(:)- SCt 



S^ll3 7> Kfr<7>:63j!>*127£ 
:£UTT-&-5Z.£, £l^DOS(7) 
»£ig;tT, S±255Sl^ST* 
c7V\°*fet££T-#5 

PATH -A:¥;A:¥BIN 



*\ 



VX^-^VX^©^^ 



BSX-C Ver.1.2 

*MSX-C Ver-l^'^^p^T-V 7 
%&f& g| 1 (7) J: o t£?4. U? h 

7£, *MSX-DOS2 TOOLSET* 

^^I'fctl:, -7-ziTMZ^ 

tkft^-tz—WiK ^2c7)rt# tz 
tzLs ZtUzltzLr^ ?-&■&£ 
tlTU^l^ib, *KID.COM"S/c 
«*AKID.COM*£, TOOLSc7)T f -< 

7 7 # hfmm m4 * <7 (z h z>s 

Zft£*MSX-C Ver.1.1*(7)f£J| 
ffl7-f 77£Jt^££s riv>K\ 
'v-y?'— , 7— 7.ft£*c7>g-7 7"f 

(Cflt£f£ Z £ Tb^SWfCo DOS2^ 
P£/f x-r u^ h U T £1fcfv- h L * 

<7)/i(t^ :m:J:iJ, 7-* 7 
7"OU£-/\"-y ^ Z-y 7°L/c t? t U 
o/z, 7 7"OUc7)^EI;0<tV^ 

tz tz L $£;£;&# <b , 7 < 7*7 U 
-7?<^I<r-fU^ h U — 

#^ urni^-ris, 7<7'7 

'J — t 7 -7 7 7 -f IVOmfitks 
tjU-X^i-U? HJ-(ifi<'j& 
WtffoZCDtzo ^(ii^Tk, y< 
•y 7-7 7-i ;u*C.BAT"c7)[*i^^# 
#^^.ti«; 7<77U-77< 



C£*,BTjt£tz&5 

-f7.?(Z(2 N **)240*P/\'-f hc7) 
7 7"f;U^-t^n, 2DD?<7°<7) 
T* I" ^^^"b 1^480+ P/\*-r hc7) 

^ #:£*#&•& J: (5^7^:7° 
p?*7A£flEofcU L^l^iT'J 

Ts 2 -£c7) 7 P -y t-T-V 7<p K 
7-f7>, Tvgfic^RAMx-i';*? 

fc£;U2\ 7P>yt°-T-V^.^ 

(ZAoTU-5>7v#&7 7"f;i^ 

■k t -el*, ? h h asgi ^tzhn 

? ^WM Ltz&i *Sit ^(Dtzo 

Kit'ti: hU, m U K 7 -f 7*F*9T* 
c7)^^T1i, Kv-<7c7)iSm— y 

F*\ : iS¥7C(7)7 7"r^(7>fuBt 

^¥7tc7)7 7 -r )\s<j>\m.*G&.r 

&'j£##&3o £C5£\ ^Oc7) 

Kv-r7"^c7)^^:T1i s «tl^*i 
<7) K 7 -T 7'c7)^m^ -y K<7)^16** 

c7)7 7"T JU£|5|B#tl:t— 7°>-T ?> 



f^v^H- 


rtW 


¥ 


=* •*. V Is 7>f7'7!)-77^ 


¥include 


^J ^"—7 7>f >^ 


¥batch 


^?f77>f* 


¥src 


^qi7 >f t*^ y -© y -x 7 7 >f ^ 


¥sample 


7*D^*7 A0r|J(7)y_^7 J^fyU 



i'B7*«<^^CDF«3'§ffil 



t a\s7 \ y - 


rtW 


¥ 


MSX-DOS2 •> x r A, 7 >f 7* 7 y -, 


¥bin 


n -r ^ K 7 7 >f ^ 


¥include 


>f y^>u— K7 7>f A- 



fflil^5^^S1-§yK>y5 1 7 7^r;u 



echo Setting MSX-C Environment 

rem "Usage: cenv <d>" 

rem "ex. A>cenv a" 

set include=%l:¥include 

path +%!:¥; %l:Ybin 



t, im.^v K^pmicRin^ 

^^(ZOUTfo|WiaT% fc^itf 
AOJftsW h<7) 1 "&c7)/\— Kf*-f 
^^ fcte-5 i U fes 20^ 73'/\'< h 
<7) 2 -^cT)/ v— Yt*4 7s9 fcfe-o tz 

SW K^/flttiiTfc^ S^(i 

D0S2T1i, 'BUFFERS" P V > 
FT\ t-V ^7(7)F*g^^— B#^(z 

^BC<7) 7 7"T JU£ *— 7°> L fc*| 

?Ts C<7)7°P^'7A^=l>/\ 
<*tt- g<7)fFSI<7)+T12, ft 
^c7)*L80.COM"tZ c t •§> 7°P ^*7 
ACD'J>?c7)££[Zs #<<7)77' 
-rjU*%3I?tli)o -3|IJ, Cc7) 



7*<7)S$<7)j^i«:SltS*&flff-C*fc 

^ % LT' : b^<r ; g>/-ca6[z N 77"T 
;U^i< K7-f7'C^OfroT 

tzt&t> *L80.COM"g#i: N 
7 -f 7*7 U -7 t- -f )\s&g&b L T 
RAMt-V ^ * IZB < 75>i/j"#^. b 
tl&o S/-Cs ^tl'b<7)7T'r^ ; §r v 
7—7. 77-f Jit te^.-Z>c7)7 P -y 
t— T*-f X2 V 7 -T 7'(ZS < 1 1 * 

->tz?5 : £.bfo%> znLtzZtcn 

W«r@<T'#S/NX/f 

CcTJct-ptZ, 7P7t'-fY7 
? K7<7*<7>&*», /\-FtV7 

7<7)^"te N RAMxi-7^c7)^Sc7) 

ili^j:^*(zj:oT, fiiPV^" 
-r^c7)77>ifc^^^T<-S> g-s- 

^|7Tl^/\-F7i7^f± 

mz^mTztzisbizbs i^i\^ 
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rMTmrntLtitz 

-J5\J-WR 



T<7)3l 3 iz & t tbXfrtz<Mj\ 
*MSX-C Ver.1.2*TlSrfclZJiin$ 
tlfz 7 -f 7*7 U -MfBt/^o D0S2** 

]££i^z£T\ 7-ru? hU- 



tU^MSC t lis *^D0S(7)7 7- > 

(7) i-mart* z^iz&aisiis 
-r 7 -(7) 7 -r 7 -^ u - 1 ib^s £ x 



-v(z7°P?7A15iJ£ LTEPJBUS 
7'J-KI»<7>-g&fc, HgKt'Jg! 
t7)7T-OI4Z$rt"SVea<n£ x 7 

Tv.^{tti^D0S2(=iiip$nfc 

77>^va >P— ;Uc7)48H£f£ 
■5J:-9l3i3feS$nfco Z<Dtztb> 
*Ver.1.2*<7)7-f7*7 0-=Sr'J > 

DOSZ#ffllzft*Jx D0S1fr«bH*T 




jiJp*nfc^-r^^u-H» 



f^TK^AW^f 



clearerr, fcloseall, feoff, ferrorf, fflush, fileno, flushall, 
fread, fwrite, setbuf, setvbuf 



iTK^AW^f 



eof, isatty 



isalnumt, iskanjij, iskanji2f, isxdigitf, strchr, strlwr, 
strncat, stracpy, strupr 



chdir, getcwd, mkdir, rmdir 




This program needs MSX-D0S2 

S? 3 (DWMZ fe#tNfc i 1 l~s 
7<77UH«D-SfrJMi, aU 
&<7)M&T-U:ft < *7^a # *fo * 

<7)fc#\ C<7)-7^P<7)5|#»tZ9J 

char * p ; 
iskanji ( * p+ + ) ; 

^ 2£^7!r<b4:£^iIA,T-L2: 
■?l *T ft C <7) AFI^ft £* £1$ 

:ntttifii:> M»<B*getc\ 
•putc'ft^'k MSX-CT1*«<7) 
KHBtff Itft E\ MS-Cft if Ttt v 
^PC^oTi^o tcntzsb, 

getc(p+ + ) ; 
<7>«fc-5ft5£tt, ffiitSawK 
7-<7»I(Zj:oT, tMt^Sft 

:: ftCi MSX-C<7) 7 " a T 7 JU fc* It 
fc^/fe Ti ^T fc t>t) s h ft I *Z £ o 
C5ft N (7)P >/*■< 7— (7)7 - a.7;u 

tlfMttf^ *vi? ufrh Lftft 

U *'3 fc'o t*-? dttl -5 J: -5 ft >bv 

^-§-l^(7)^feT% *<7)Jt3£3i£ 
*StfcTi&S*rfcLftftv.\, 



y 



execlp, execvp, _exit 



getch, getche, callxx, meracpy, memset, getenv, putenv 



GREPnWFSffl^ 



"Vi 



9bttX\ *SETREDIR=OFF* 
X 'J y< ^'>a MMfcft£tt£ 
T * £ ^ *GREP* =l 7 > K T* U ^ 

c7)SST*(i, GREP=i7>Kc7)tb 

SETREDIR=OFF 
GREP "<" SAMPLE.C 
EXIT 
(DX 1 t£/<v?-7 7"r;U*G.BAT" 

C0MMAND2 G >G.OUT 
T*COM MAN D2.COM** Pf 1/ ttl 



L v / \* -y?" 7 3"f )U * ^^ $ -ft % c 

v/ttJ S tl/-illJc7)C0MMAND2 . COM 
T-CO^^t!) t ft U s »f l/a L fcflj 
C7)C0MMAND2.C0M* <I J y-f U 

Cc7)J:-7(; s MSX-D0SH(i*T- 
# ^ o t*t*# ft ^*r i: *<gj(7) J: 



at^^ti^Hoti, ^^-C*fi^:<> -^^p-C'fo 



iJN. 



/» 
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T$=*JI/'7*y2/X 



MSX-CCHIHtaS U 7. MJIJ 



/* 

* 
* 

*/ 

#include <stdio. h> 
#pragma noregalo 



char type, c 

on 30. Jim. 1991 by nao-i 



int 
int 
char 



main(argc, argv) 

argc; 

**argv; 



auto 
auto 



char x, y; 
int z; 



Unt)x=%d¥n", x, (int)x); 



printf("x=S 

y = 10; 

z = x * y; 

print f("x*y=%d, ", z) ; 

z = (int)x * (int)y; 

printf("(int)x*(int)y=%d¥n\ z) ; 

return 0; /* for portability 



/* 

* MSX-C Ver. 1. 2 T©Hff|§£ 

* x=-mm, (int)x=10 

* x*y=16. (int)x*(int)y= 
* 

* lsic-86 -e©Hff^^ 

* x=10. (int)x=10 

* x*y=100, (int)x*(int)y= 
*/ 



*/ 



Zl LXfrX<Z>£ s MSX-C© 

=7 -r -fj V—izit, i tz i tzmn 

(D>SkWt) < &i')f)tZo &&*I£© 

<B£tf#Hf, #b#£f4 s ££-?-5 
ttlSjMtt\; ib6xltt£ffitz^tzA 
-S MSX£ Msx-c#©£rfr fc z: ? N 

j: h — s© =? 4 -f => u -(d^m * 

LtzZt(D$>Z> s RS-232C£M 



Yf-i \s$ h U— ©"7 7-OU£© 

-f7^l7-^it^7<77 

'/-tftfE, ft&©.5*fc-3(z|K)L 

T(i, *##-fML r MSX'J7-f 

JU^jtt £*© ^^l/ (Z-fi^-D 

fcttx 7*^— *? r-MSX&£'T' 

*tz\ zmj^^^'j-^ 

e&itz& oT U $ W. R800©$- 

vm^*te j )z.t.izbm&Lx 

5 t&HT'KfF Lx M v mz U ;* h 

iftrt s z a: fex-i a £ n-5 






MSX turbo ROf^- 73 ;U-/\> K 
fl&&tt2500RHB&] o £S<7);£M 

j&frLTi^z:-5 SPM*ttfc%5 
^MSX turbo R, y^fAil^ 
6. 7^j! -7--V a >Bafg(zfc(t 
*3ft& ¥LTPCM«g|<7)>£ffl 
>££T'£fi?lk, 2*(SMSX£&* 
±T'fc o fc *>£#&;* a -y h <7)$E 
^ 3 HKijJt?: BASta*LT4$ 
<7X &S£gB&#V9958VDP0MBiJi 
^i:^< S^«C7-*-AfF'J!;CJ 



ISX-CCD 

MSX-C(Jx Z80ffl(ZfF<bn^/c 
#\ 16t*«y hCPUfflc7)zi>/\°<^ 

h a, x s 3tfc ^ i » i: z % x-mmiz 

ft3©£\ *char"M©^I^* 

^^©CT'iix IS£k©charM<7) 
5l#(Brt& intSJtzg&SftTrfrib 
IRKIktziSc**!**^ MSX-CT-tt* 
©2 2j££ft-§> £_L<7> 'J ;* r- © 
15«T'(ix charg[TteA<100©f£f& 
*x*«r|R|aVintrHitLTU-5 
**, *printf*©$JCJintgi©fii£© 
(tSxoZ-cOfe U (z4'-^Tl^(7)T*x 
-fcfifc/*-r r- Crf ? (fz £1z£ H P 

tfxth w&mtmfrztiZo z 

tL?rK<"(Z(ix 
(int)x 

*l*A x > "E U — Ci^n^^T'I 
^•5©T'x y^ hT*(Sx 
Ipragma noregalo 

SfCx H*©CT1ichargJ(7)fS 



-?n#=7kry%tz* 

mtk<T) 5 jftt J MSX-MUSIC<7)» 
IftTx v v >1§A^ >b a > h □ — ;u 
■ra-9->70ufc*84ro 4M2: LX 

irsilt^^ $*x t^rc* 



MISXturboR 
Technical 
Hand Book 



■ * 



1 *■ ■ * * 

* m ■ 

... a 






£ft& t < HcharM^'-p L©>H 

<tt#$n^l^ '/^ r-T'lix 

100X100=10000 
ZKZ^Z tzfiK *tl* 256T»IJ 
otzg-WlSCtXiTL'tic 

$hizmm<DCX'lts charSI** 
^^ft#T'fex J8#*l/P-feW 

:^i:4-oTi^ fcxT^tf, 
char c=0xff; 
int i; 
i= c; 



T"(ix 



i '©filA^SBtz^S 



LftfclN, MSX-CTIi^cCb-f^ 
^■4 Lx LSIC-86T1iil^nI^x 
MS-CT*(i^|f^- KT»9#*., 

C75Ca>/N°<7— ©£<(2x 

signed char sc; 

unsigned char uc; 

©J: -5 lZ^^t#chari:|^-^L 
char©iSi:&£l5x!*5a < x MSX-CT'. 
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»*<& fc 5£T t z h %friz t± u 

:ttLn„ %Jj*S.tt&-£^ J ) 
b<nt mtfK < fco Wfe, frtt 
»;«*>* To U&»U 4-#A?>i: 

h -£Mm~M zv L fc £ V -3 B*0* 

lifT'To 

<?T> ^miS^rt^tiitulili 

RAM(7)$H^T'1- mSfe&J: 'J hm 
*&itttzti£ < T*# Wf XTtK 

* cn-frnftti « t> *> *> A,y&g £ *s. 

£3&ffl1"£fc*>lZ«: % MSX-D0S2 

aSBRAMdli? 

MSXtiH *IIZ1£# L 4 s U $ J ^ 

* fclffi-8l*&lZ&-?^T-ft h tlX 
l^-S)^v>T*To 8 fc:*-y R-» 

U£-t*A, ^*&<75ijfflg|5tz^fc -^> -r 

£ xwht)Hz$nx^z> p > £=l 

— ?— U\ MSXfetfftZtilBM-PCC 



^LAJUSfcUil+A,., MSXtZ 
•£«£, IBM-PCtzttiJJLte*P'£lii 

T i ^ T fe'ltT % 3 £ & < **&&< 

MSX<7)*&&; MSX 1 fr^ MSX 2 tZ 
& $ £ # *><* fe A # ^SS^/fo 

££&«#*. 3: To z:<7)£#li x 

izmtz utmxm&) < £. zn$T 

t£3BRAMli % f vy \<7)MSX 2 v «> 
> (fc £ x.tiYIS604) IZCi fc £ t> £ 
*-^fc«g|T% HEStzii-^'J- 
£MA < 64K/N*-f h L2r4'VA8£> 
h CPUT'&&Z80A£&ffl LTUS 
MSX(7)y =E !J -mffl&lkWfZlj 

: &nv-kiX'To ^€ l J-7?/t 
To z: <7)^-xtc7)*^:(7)!f#m(is ^ 

^■J— £M&16K/\*-r K7)256f& 

* T-ffi*T*£ 5 £ V.n-5 Z t XT 

z:t\ MSXrtgBiif¥Li\Mi 

h'^^t^Xtti-oLf^irhL 
tititA, a MSXizti, fcfcfcfc,* 

* U -^Pb1£Ja < tt-5 ^«6lZ7. P 

vYWm&W&V£t ZK/Xfr 
: Jk*ki$.l fc64K'\'-f h L^KCf 

8fgi"CJ!£tf*z:i:A<T*#S1-o 

* P -y h (i % ^£7. P >y h (7° 




4o&U, -^coS^^P-y Mr<b 
$ h C#* 4 -p-f'o i TUBS* p 
•y h (-tzP>yj-^.P-y h^fc 
n3kvt) «rii^rz:i:A<TSiro 
iif;(7)^ ; E'j-^r^i64K/\'-f h 

3ST*# %<7)T\ 64K x 4 x 4 T\ 
1 M/ \*-f h t tj. Z> t> tfXT o ^ a -v 
h 151^ > * U - v -y /\ -y7itW 

nX^Z&lts ^*>"bfe16K/\*-r 
[^ $-a^O(7)ifii LTi(£55T*S 

5£\.v-5z:£:£ % il^LT— ^(z 

#fiST*#?>l6Hli64KM*-f h t 

* < yl^J^■tt^Ls ^•[3](7DiW^'b 

T^-U v* (5JH < ^SBS^T < 
tz$^)><?TXlr— (7)MSXx — ^ 

4-nk -f^ffl r % ass t* ic*« 5 im. 



7>UV—tf 6 *T*f -tniz, MSX 

*— h 'J -y vffl<7)ZL-A-1MUS 
« 1 ^ C ftfcttC7)S|5p a n T-256K 

/\'-f ^-^<7)|/i;?SRAM^- h U v 

v£fF£:: £#!?#£ To 

»Ktix l^fc<7)*3l)l|^*(73it 
>/N"\» h*±<7)MCC159P£ffl^£ 
L^Co y^^^-y^^r-^tz^o 
*>»JtJ|3l«>l)*i^ixlCV<r'y Hi 

74LS30(i 8 A7^)C7)NANl>y-'- h 
TTo 74ALS3(X 74HCT30t!) < A¥ 

^-T'To ZKAICli, ^'EU-V 
•y > N°-ffl U v 7. ^ -HS^OT 7 F U 
7.-TP— KffllZffl^Tl^To /< 
•y<r— ^(iDIP14tr>T*T 

74LS670W4X 477<^Uv 
*?-£qftf;h.*fc<7)T*To 4t' 
>y hUv7.^-^4lIAoTl^T, 
##iA^-T KU-7.i:f^/cL7 K 
U^^^^CifC-? 4 fe<7) 

;KZfF"btLTL^C7)(i N C(7)ICC7) 
«iliz*l> tZ Ztftzf* V. ^T-To 
y\°-y>r— vtiDIP16fc°>T--r o 

74LS139(i-f>t:t:'>y hA77# 
#(7)2 t'-y h/\*-r ^U-T-'P-^' 
A ! 2lAotfcWT't Z(7)IC(i 
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-$-£xiz-®£bmmix^z><nx\ 
-S13<7>g£ A.iz[tts$Wkfr<ni*f 
XTo ~G»£ L lzLtzVmX\ 
A, B<7)A:WJ&gu:«fc»J, 4*$) 
6 fcBTJ (Y0~Y3)<7) -5 *> £*ftA^ 
£ ritztftf L l^/wctt U s To 
A-y^r— v«DIP16fc:°>T'-fo 

# 1*, «Rt^>ratzfiKS£L*ro 
itfc, m&<n i m&£'>iwzfc 

£&fc-f-t#>L£-f 

^^E'J— ICTfo -*icS* Sal 

COHM658128£ffl^-a^-fo::<7) 
BjWZ fe ^^(7)10518128^^^ 

t- -r >y <? RAM £ ijto^Httr 6 
flUTC*^-? £ % Pseudo Static RAM 
T'To >* L T 7° V -f K 4 if t tm 
& #1* «fc 1- L i. L J: -9 o Pseudo 

4 J T*(7)^B& L fcH^nfTOf *#• 
&PS-RAM£l^ -^IZLSTo 



IBBa^T-ry^RAM 

PS-RAMfctettfcWCu-5 ^& 
%B*^"bl^itf^^T--f -y^RAM 

-1"f 5 -y^RAMT'fe&S^-k 
*> i -5 £JE& U fc> =E V -IC2: 

**x-r-y?RAM£(^ fflgm 
7 U -y 7°7 p -y "fifQrr* ^'J *t— 
S>rtC|ft^T^* fc#x.fttfJ: 10 
T'Lii ii^s 1»7'J-y7° 
7P7 7°U 4 <@<7) h7>v^?fr 
•b-fF^nTl^To IMfc'-y h<7)7s 
^T^-y^RAMHtJ, 104758576 
\WT) 7 'J -y 7°7 P v -?tf\r> X I * 

t-7>y^^-mSTtn £ N 419 
7J4304fB(ift42rorfH ! >iTt^ t 
A,T'fc fcl M»C:#^ T L * I ^i to 

z nt>\ ?y -r $. v 9 ranhc # 

3£i£ASt-?T#£T 2V 1 *- s 

•y ? RAM<7)%£\ ffl«<7)IBfit(i3 



LT h 7 >*J*?-r~# 1 «gfc 
fcfelfc »Wli&A < fc^fc<bUff 

ta\ ^gii a asm assist 
si:»tBLTLii^*ro 03=^ 

£LTWUi\ JiAS7-Lirfo<>: 

iai«A<»fcns t\.^zt\,zm 

T'L<fc?A\ -<&«!:•) ttF*3SBflfit 
&&o fc f -Y ^ 5 -y ? RAMfc h it 
IMtf-y K7)g*T*t>x Yb>i>7> 
5-t p >t ? >^-co^[A < 10475" 
875efHG^i05^^H)-roT-rt;z 

V |-(7)7^x-r7^ RAMA<fii8&fc* 
ofcZ^tt^-f^-S -y^RAMtt 
1 6 K fcf -y h A^IET* L fc L s m± 
(7)J;-5(-256Kh:'>y h(7)^^-^-f 
•y^RAMA^^Wtf^-ti, y-<i- 
5 >y ^ RAM«1M t*-y h A^-^lZ 
t^Xi^tiToLiPb.W&tvZ 

[t^W£(Dxr-h\ ^mfttiiM 

t'>y hc7)7.^T--f -y^RAMi:4M 
t'>y h (7)^'-r 7^ 5 -y i> RAMANS 
(Z^^-7 t LX^tto *$r-4 
>y ^ RAM t,-?-<ft§y* RAMCOlfi 
1t^*<7)JtA<l o fc 4 <^$> •§> ^ ^ 
^"^(i, 1*1^5(7) h 7 >v 7.^- 
W^ff^^iPIA^ U kfr h ton 

Xto 

»^^T--f-y^RAM(i, /\°-y 

o/z<[i]-^c7)T'i-A\ famm 
tm-*&mx\ zA,mmj*L 

X^ZhttXto ti>^®\lZ±Lr>X 
mn«; ^T^-y^RAM^A 

ivwrc; CPU tKnmmtt^Mm 
Xto tztzL. +#c7)§B1*73>i(S 

?RMA%(7)b<nt£<nX\ 'J7U"y 




Ull 74LS139 



ENABLE 



SELECT 



DATA OUTPUT 



Vcc 2G ^2A 2B^ ^2Y0 2Y1 2Y2 2YT 





16 




15 




14 




13 




12 




11 




10 


J 9 






V" TT 








G A B YO Y1 Y2 

Y3 


3 










I — c 


5 

A B YO Y1 Y2 Y3 






^_ TTTT 






■ 






2 




3 




4 




5 




6 




7 


' 8 





TTT 1A 1B 1Y0 1Y1 1Y2 1Y3 GND 

\ ., / \ ., l 

ENABLE 



v 

SELECT 



DATA OUTPUT 



•BE 74LS670 

Vcc NC H 



G NC NC 





14 




13 




12 




11 


1 10 




9 




8 


* 
































Liz 












e 


) 




f 


3 




1 


> 


V 






6 




7 



GND 



m3 74LS30 



WRITE SELECT ENABLE 



DATA r 



"\ r 



OUTPUT 
A 



Vcc D1 W A W g WRITE READ Q1 Q2 





16 




15 




14 




13 




12 




11 




10 




9 












■ 1 r^ 












D1 W A W B G w G R qi 
D2 Q2 
D3 D4 r a R B Q4 Q3 
























1 




2 


" 


3 




4 




5 




6 




7 




8 





D2 D3 D4 R; 



R n Q4 Q3 GND 



'A "B 
\ ., 1 \ .. l \ .. 1 



DATA 



READ SELECT OUTPUT 
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B n q»«*A,fcc:£ < #iv7)tt*«, 

*ftli£fc?!r<£LTx *-rc±m 
fe8>ttft$JR(3i-3 Ti v< c £ c 

**y — v«yy\— l^**— fit, 

l/OU v 7. * —(75 FC#iferfr b FF# 

jfedSwyrcbft-u^-toNAND 

y- h T*574LS30li, T PUT. 
/**0>A7~A2#H issOUftt #(7) 
^LL/^H:4' ( Jlto ifc, 74 
LS039<7) 2 #<7) 1 £*iL<7*-£-;b-t+5 
Zt\Z&*k FC~FF#ifelZ /• =E U 
— v-y-K— iz^V> h UvT.? — 
£ LTiEK£ft;t74LS67ulZT ? - 
? £##iM;C £ #T'# £ J: £ 

I/07 1 hV^<7)FC#JB!*«— i^O 
U^E U — 7 K U*(7)0~3FFF#tfeX 
FD#±-&^^-v 1 (4000~7FFF 
#i&), FE#itW^-v 2 (8000~ 
BFFF#±fe), FFSife*^— ^3 
(C000~FFFF#Hi!)(7) V <y / \°— fe ^ 

-?-fev*V>h£«\ y^EU-7'p 
*y ? (7) 0- 1 -z> <nM&X\ Hz ^V 



>MJ16K'f-r hT'To ftS256 
•iz ?V > h i XWj* =E U — 7*n -y 

^ascies-raz: £*<*?£* 

frltTTo 74LS670COtti^^\ £ 
inT 7 k u 7fimi:ftit5 c £ tz 
fc«J Hfo «t-L Q1£MAR Q2 
£ MA1 5s Q3£ MA1 6, Q4^r MAI 7 £ f- 
t/ J To 3 tlb (JD0~D3<7> 4 tf-y 
h#La x &lv7)T\ fc^fciiiPT' 
K U ^HBfifc^ L fc l *fc b f & 
fc "9 U" 1 074LS670£ii}q-t*U2' 
St^(tTfoJiiP$tlfc74LS670 
(7) 4 %mW}\,& MA18, MAIS, MA20, 

MA2TC>5rS c t ut|^Bt?l 
U 7WP7 h>\';*(7)7 :? — ?/\*7. 

iz^cos^^ns-fo 7,K> 

7/ <?* ( J A0~A1 3tzM L T<7>#-|«3 
*ST'T „ OBJ*- MJ7v^P 7 
M\**<7)RD(Z X WElSWRtZ, *L 



T RFSHtiRFSHlZ^M? nT I* 
Sfo Cft(JPS-RAM#l*<-3& 
oTfoHUT-fo 
CE 2 « + 5WZ 7>7 >y 7°L T& 

< tifF L fc t WT &6ft& < o 

CEIliT 7 KU^T^P-^'i: LT 
teffl L T I ^ 74LS1 39<7) Y fcHTJ IZ 
MLTU£To 74LS139c7)Yt±i 



TjUU SLTSL=l_c7)£#lZA v B 



>(H4 74LS139©^P^^E 



ENABLE 1G 



(D 



SELECT 

INPUTS ^ _ (3) 




'^> 



SELECT 



INPUTS 1 (13) 
2B 










DATA 
OUTPUTS 




*J£KRAM#- 



yc7)5is zcTJct lizis'szfJMz&tabZZttfT-Zt?,, 



xtjx-mitiiz 4 -^ as ? hayu 

t -wnfrtf L u^nzft U i To 

-<7)@8g<7>i#£«; A A7JW74LS670 

<7)Q4lzM£tU BAMt-fJls? 

> (GNDCZ^^) $HX^ito 

CPltfrV * 'J — <7)F*g^%-|S*fc* 

CE1=Li:LT, ^n* s bOE=L 

iz-rms; 7i-->r-T'-ro *^ 

T 7 K U 7^ <7s ^56^:fls 7*— ?s< 

•tt^ CE1=Li:LT, ^-n^bWE 
= L £ Tfttf&l V7)Tf„ S fcPS- 

RAMtZ^'^T'jZ^^ U7U7yi 
EtlfF(is ft^8mS(Z512[H, f^ 
^)lb15.6^S(Z 1 HHJCET=Hc7) 
^SlT\ RFSH= L IZ L X ^ S tz 
ttT-To z:nci, PS-RAMrtitc^ 
U7U7->a "E— \-'cnv- 1 r>x-h 
S, /r-h l J7L/7ya : E-F^ 



*IJfflLTU|:-fo SLTSUi, RFSH 



=.H, MREQ=L(7)£iSlzLA N L 

T'fo 

ZtlbcT)— iSc7)l)fFWs MSXrt 
SlSc^CPU^i^tZnT^oT < tlS 

^? ^ #lZm^*^C7)tf)-^^#X. 

•5 'jz^ti i o fc < h u * i±^ cpu 

(7)|f L l ^fF^ -f 5 > ^'^r^P *J fc 



##(Z LT < tz£l\ fA^^lZfc 
-rf«>rS<7)ttxCQHiJJS*t<7) r Z80 



7 7- 5 U «/\> tt+j* J&KB882. 

m)xto n^t%'>-&#>xth\ 

Z80(R800T1i^^){ZMTS'tt^ 

^ffc\ S-RAM<7)*&« % fc-^t 
y - K 7 -f V (Dl5 : &tfffimX\CE] 

(7))1# £fUz r 5 'JZ^t J h »J * -& 
^ Sfc, CE2=Li:LT^?.i: 
7 ^ >/ n*< ^- K 2 1 ^ i ®£>S 

SmTJ^S (2VT' fc x- ^ IB«W 
f6)lz^S(7)T\/N'-y r U — /N*;y ^ 
7 7 -y7***5l^T'ro fc%^^^ 'J 
7U7V1 Srf^iiK^A' I ^T\ 
RFSH 5ST- (iNCCy-n^y-v-a 

WHasfcor 

MSXffl^: LTrSSSStlTl^* 
- h 'J >y vTs P >y HflJ-a-A— 

i^s gifF^ < ^^^ocz^s^fo 

o#, 0.1^F<7)fl|ii-b7 5'y^ 

1^0 iz fe«tofc(7)iiiJ|T^^ 
tdfF^*liELT<nS'ro 
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WBMfHts »<7>AWG28#*I 

Tft<£. *i ^wmmxut <* 

^<7)IBHitc7)^ x -y * ti£*r fc L 

W^><7)^x>y?£L2 L«t-5o 
SEIISST Uzt So fcSP^tS^T* 

t (D±.ij- h m^ > W x >y 5 f ft 

fttat&n* ? p jo**; 5 * (iiBsm 

t&>, team 



n-y h#§-(i x rtSB<7)RAMa^|£S 

X, ^P7H:iL X-k%±Jf^ 
tz £ # IzteT XHZ z <n* =E -0 

l*t* L H N BASICT'ffi^.(Z 5 1 x -y 

^LT*iLn c A-hU7y 

*mz u^vmtMUzymx\ 

PRINT INP(&HA8) 

<7)<i^M4^Ti^ft(j; ii*(i* 

-T-t.M,X£^X-L± J ) ttl 

— c J: *J J£3S$ ftfc ** «j -spg 

•>3>V7K fc£a.WTMSX- 
D0S2& ^SrHRgClSfl^ -t*T# 
X<tz$l\ 






SLTSEL 



RFSH 



IORQ 



WR 



RD 



A9 



A15 



A11 



A10 



A7 



A6 



A12 



A8 



A14 



A13 



A1 



AO 



A3 



A2 



A5 



A4 



D1 



DO 



D3 



D2 



D5 



D4 



D7 



D6 



GND 



GND 



SW1 



+5V 



SW2 



+5V 



/77 VCC 



DO.. 

D1 K154 

D2 «U 



U1 



D3 S4 



\M U 



VAJ E 



S-A14 



VA15 4 



,r 



D1 


Ql 


D2 


Q2 


D3 


Q3 


D4 


Q4 



WA 
WB 
RA 
RB 
GW 
GR 



74LS670 



\_A2_L 



SA3 2 



\A4 3 



sAT4 



vA6 5 
\ A7 6 



74LS30 



VCC 




U3B 



J^G 



Y0> 



74LS139 



02- 



y?5g nc 



A7 




VCC 



V_12. 



U4 



•v_£ 



•v-21 



«^2E. 



^a 



v_i 



_2S. 



AO 


DO 


A1 


D1 


A2 


D2 


A3 


IM 


A4 


D4 


A5 


D5 


A6 


l)K 


A7 


D7 


A8 




A9 




A10 




A11 




A12 




A13 




A14 




A15 




A16 




CE1 

cp 





& 



izy 



ay. 



y*-/. 



^y. 



2iy. 





658128 



U3A 



•CG 



~Y0># 

Y1 y± 



Y3^ NC 



74LS139 



\_L2_ 



\-U 



VJi 



U5 



\_a 



V2Z 



\-2& 



V 



V_A 



M 



AO 


DO 


A1 


D1 


A2 


D2 


A3 


D3 


A4 


l)4 


A5 


D5 


A6 


UK 


A7 


!>/ 


A8 




A9 




A10 




A11 




A12 




A13 




A14 




A15 




A16 






_LS_/ 
2SL/K 



12_ 



658128 
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tfv* £ -7 Ctt b %i >fr t *\ fit* 

fc#3: L«fc"? 

*t\ y^U-^S?rfcoi;±i 

K/t-r hizii^-ri-ti, y^v- 

IC£ 2 10 £ 74LS670£ 1 MAqT 

ti(f5i#6Tro iiip-rs-x^E'j- 

IC<7)CEU;tfHJ, ^<7)££M5IJH 
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•y h/\'*<7)D4~D7i;:^U WA, 
WB, RA, RB N GW N GR(D&mW 
MflJCSHtLiTo tSi:, Q1 
~Q4ti MA1 8~MA21 C # 3 (7) T\ 

74LS1 39(7) B m* H MA1 8T'& & Q 
l^iMLSto Z(DViMX\ Y2> 
Y3£ * n-*fft<7> jgAn L fc RAM(7) 
CEIC-fiKfc-f *l(£&l, ^(7)T'-r o 

S3t(7)fc(7)T1J^< s 3fl£<7)fc 
<7>£f£/US; iH*T#7><7)?^7 k 
miS £ tlT I ^ <7)T\ >Jv3 fr »*£ 

X i * * Ali#JstfW5 £ ^ EV# I N 
T&*> -7 £ u-5^^> ?'iz bh 

CiT* £ i>3 tt<i/d:73 >£ fc * U i 

To kb*>A,s 22#b°>(7)CETl^ 

oT&i^ i*o -Sit? £*#-?«, 
tfJ^fcA^WJl^l (*&*»;£< 
4 l> L , dU&lcJf *. CM* Tttfc 
iv7)T->3Le;)*rfcti-5<7)T\^ £T 
*£ N A-MJ7y^07 M-A 

bA/Cl^To 

bitjCZV — 3!*£iiAn Ltz 

(""^Lfc'Jx A'7/N'7 7?-[l 

S&«riliPLfc(5-5A < ^^T*L«f7o 
w-)tt*£% afcTb^^EU-IC 

^ •uniasitf/r u eft* <7>t\ m 

14A<S*# <* ft * :: £ l- ft * lit* T* 
f ::"flt teiv^fcSSfl-L* 



■li-A.*^ 4Mt'>y h(7)PS-RAM£f£ 

7(nbv-£-?<n?] : ,£;X'Lj. i a tz 
fc'U £fc*A¥ttfc«&7X£fe1M 

t'7^-f 7°tHSJt < Mfcl V7) 

m^m^xixto 

£ $tizr>tz S.ytjnV-te'vt IC<7) 
PST532te-f£^75"£l£££ h>7* 

Klffrjt—tj-frblZJE&lZteG: 
3l£ftTl^j:^cfcO"t\ &feW"" 

h%fi^ntzMi.^z>£&^iTa 
mximtzt. *&Kbifmx 

i*)^£$?*I"t5 c £ #&3<7)T*-f 

mmmtkfttfr-'? >- v \z? 
>(7)(5 1 x-tttti* titzi %m 

(lAftT4^<7)T\ $'>"J-?\ 
XJL5ktf>SmXT tz^tzl\ MSX 
<7)*&(i U -b >y h *<^* x * ^ . > 

tet'0 ^*«-iT*WQ!$ti* J: -5, 

^rji+^a t i^^^& o tz Hi* «t 
iFPJW fe ^ i ^c ^ ^ b» x # s 

cntznbiz s -$-m$:biXM£^ 

immTTzzmzKii&Ltz 



[s^D-^—t Lxwmxzntzcn 

Tl^/z^ # fe/g^iiSLT < tltz 

(zmilt < ntzmm%(»*m 
^>cfc4L%-*L±if*ro ^n 

*^b, l^|:£-Cfk<7)I5#&USA,-C 

<tiT, ^KS(zH^i*:S* f J«^T* 

^^-^»(*ii* -at US ^k? 
<ft£fJ-;fck A^fc^bo 



4*i:lii^*-ro ?T N ccoilite 
w* y c ^i^ v. ^ < r> b <7>&ift&<n 
I'v^au t Ltz a 7fsy*?b(n, 
4-t 4* -o x im t ^ gffcca-fcfc 

i •» fc C0 N 4 ^*<7)— SB*^A<7)^5ct3 
AfJSTo MSX21^(i^*rt/IS 

^4o/cRTcs«^b, frlUiis^r 

Lfc(i>'J<7)^ B s a ZL--y h£T*S 

*^S4fc<7)*<$,USf 

^■ZT\ ^tl.b?rK>^-^C 
M#(7)<^ ti $ A, c: 7V-t?> h cF ■£ 

<7)7J(is U£2-C<7V\-K r 7i7' 
WpiO^ fy?^77M:o 

^8^SB* TC #HB*J 4r < tz$ l ' 

x^tztzi^x, tsW) <nft&i~fc 
\:tzb<n*t$&) Ltz^tB^i 

*Z^ttTS4". x * x feLn*fe-li-^ 

^r-frii#T * fe (7)*^ b nx t ^ $ 
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f^H 
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7UK/N 






2/ >©*r ^ffl qrei& =&©„ 



©FMMtK-K 

^^*o MSXS+WBOS 











DP 

a a 



L\tB5 : fe© : fe*SB-3 , «:o =fe53AA S 

^3rj^»7?^o «ac» courts): 
fc6^ti^if©cfc5izsffl-r§^^sur, 



g©ox., H*/u©a»f<!:flM&(i?)7sa 
fc& /3^orcs»L/r$rBuno fc< 



=107-24 
*s?»JSKBSWllJ6-lH 

(80 7**- 
MSX-7ffS»«J*S& 
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MSX"7n?^7-f6«itii 





mmmmtSs 
warm 




w»1$$m>SB) ztm**&=* y Kutr 

n^irnis; p^s^^ut^ hP-v(ig4±incpu£MPU£ 

S J: 9 C*2rfc It fitffc 6 fe i «*B SfcfcflJfc*. SIS (i <fc < ttfrhhJ?) 

^«!)T68000T*7 o P^*vA^SIn l^ 7°P t'^lxmWiW&OM**) 

fe££, £&fz r ttA,]HM,ijgE(;j —lza)-?£-oX, v-7.-ft#7U 

tzr>tz(Dtz -77 h7i74'i:>y7>P- 
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#@I3\ ^hP-^tt«MPU MC68000CD33yV^-5/o 
WE* lBliu/KAV3>rffiffl*nru«CPU<!:U* 
IS 3 ©68000 *\ •< >xJUttCOB0BB(*«LM4B0BB5» 
CPU)<yi»#**orU5B£*yi»-fc5£<Z>«o 



rfK LT> 4-T-tt 680003* MPUtt 
fA<7>— #£?-# 45T*5„ 

(Z 8086T £ fr < ^RItc o fc Nz ^ 

^ > h ^u-jffi^A'S^fc < ft 

£ *<* # l \, ^ * 9* 68000(7) U v 

B& < t^-X<n\y *>7s$ — #32fc* 

>y h(=4A-f h = P>^' r 7-K) 



U#±fe£*c7)£ £ y-Mzmitz 

?-#32tf-y H*J#j£t.^<7)«: 
IBBilNT-tt^Cl^ 7°P^*7A* 

7 > ? -fcflt ( J W1-T\ U otiT 

1 , i24 tf -y I- (Dfrti^m ttiZ> tz 
tl-h, 68000c7) i fIIT*#-g>^ ; E l J 
— SH« 1 6^ #/ \*-f h fc 1 v$ Z £ 



a<r*a5s^v 



Jgll>tfi0«M3 



j^ssz^a 



I INK 6B000rttx^'^izffi£-tzyhur-y-?;b-^>'\3t 
UNLINK ^^7gg^^^iz-rs©^3Lo6©tt*fco 



t^"7-SCE2Br*5©A x 6B000©3lb*r»5« 



tfC-* 88 ^^ 



pBOGHAMffOUSE 
r68000tfffit)n"Cl\*D>t:j.— 9- 

^ ■nSHHHHBHBHiBl 




X68000 




Macintosh 



E ft & (68030ft £'©_h-f£CPUX 
(i±tf«y hi&Sfcttk %-5&*& <* 

- K7 x 7X'*. J: -3 £ijifflX£ LX 
^tltf64^^N*-f \- <T)7 <? -\l7. 
fe ^Tilli ft $ * "5 tt& * C £ X 

£#fti\> 

Ltz(Dt)\ n— -jf— : E— Kfc* — 
y \°— / <-f -+f — ^E— K© 2 SI©^ 
-F^i^Tl^*. 68000£-f£ 
lL/:Vy >X1 if ij U iA^^ii^ 

ft *r £fifci. *fcil#tt* n-tf-* 
Oil T 7 2 -tz 7. X' • fcU'fE— F X* 

*mu"ci^ a— v—imt^ 

ft - £ £ L Wf tisT&ii&st 
i-jt -y-tz-v£tti LX < 3>©ri 
BASICft ib £ fofofr%t)\ Zlfiffl 
ft Z £ [Z 7 -tz > 7* 7 — X*#A*lfc 
7°P ?7A(7)iWT'f X. fc*£ 



Lx<-s>o *ftu*fafcx-#fci\ 

a- *f—[$£&.mz ('/^tA; 
?-y »>a Coftfr* y frteft ^) ^ 
ftb©3i*&::*frU fafcLXttl* 

AROM^ti^-H^f-Mil^-ft 

■y-tf— h?tlTl^ Macintosh 
L*^r> X68000LA^X*&£ o 

Xfes ^oWW€ v U£^5b 
ft£l5 £*-{>-? X^fc < ft$©#A 
©^o **lfc^ v7xAROMllft 

i >tm&? «b ft 1 1 nti'ft b ft i * £ 

<7)£# x *— /n— A-f if— ; E— K 

A5 £ v^xAti-frfctf^ i:*-? £ 

#£vitHft < ft3 t<nfrt> t) fc 
i^xu*£fcf £& < fttzfr.* -y 



B8DDD~— ^-y<?(D— 1 




7 r -f >i-*'fe 1 S*l»ii* 

move.. filehandle<pc),-(sp) 

DOS .FGETC 

addq. I 12, sp 

tst.l d8 

bnl _getchrexlt 

coip.b (coiaent.dB 

beq _coitcheck 

cnp.b tcr.dB 

bne _getchrexit 

cnp.b #1 f , previouschr 

bne _getchrexit 

■ove. b dB, previouschr 

bra _getchr 



* l Hrf fc'j-.p 

•spSttcIc t i'^- 
'dB £• * * •/ ? 

• flfc'ofcfcx^p* 

» 3 ^ >• r- ff *'? 



77TU 



cup. b 



llf , previouschr 
_getchrexit 



.skipll: 




■ove.» f i lehandle(pc), -(sp) 

DOS _FGETC 

addq. I 12, sp 

tst. 1 dB 

bnl _getchrexit 

cmp.b llf.dB 

bne _sk lpl 1 



* 83 mfk&i$$tfit-£ *$:t>Mfi 

'H--T 

• 3^ y r-ffS-MAIRift 



getchrexl t: »ove.l 



, previouschr 




•t-v^tiix fomiBi--s©«s-r 

l\ v7>-rA$Ii^^^^$nXl^ 
•i)?^n/J < $) ; S)©/c^'b(-^#"J: < 
•Hr^ hf-5cML/--c^{ifti^ 

^C^>X\ IStiTcHHoXbv 
7.9-tzt)\ -f^zh^^h^-^2 
\iv h x>^^T^ c i: vi^/oftd 
fti^xiift/j^o/j\ ^n^ 
32t*-y K7)>H3ttt8 fcf? hf 16kf 
•y h ©^^(zib^XMil^^t^© 
X*\tU^fi*>lt>\ t^iitz&A, 
fcfcMJElvi 5t/JSZ32t'>y h>H»i 
Sl^©X-** LA^L'OSEti^ffl 

x^^^^ r 7- KjUffx /<-r h>H 
*t>X*#S«t-5{zLX*l>o fA^ 
ISitLfc^ttXfeftAXfcft^© 
X'^Aftft^ -9 ft p OTt$«I 

X«ftl^\ c^ Cfr < t 1 ft©/-Z*o 

^©7°P ^'^ A#iJ©i$t5-©& t 
IZ-^PXI^*. b"^ b \ w"^ b 
fc ^ -5 ©* <J f ftfcfo 3b ?"=b ?'«/J^ 
ft < Tbt>fr%tz'*> 1 &<rW. b" 

$Xl bvT-^-COlSlZMofc 

ol^x^zbv7.5'-«^^z^l^x 

fcftfetlXfcdTo 68000© bv 7. 
? — (i x— ^y^y-* ! D0/j^ 
bD7iX©8*. ZKb^bvTs 
^-*<A0^bA7iX*©S*:s ^"L 
X, 7*n^A*9>^— s ^f 
— ^ 7 b v 7. ^ — ©-gftl 8* ^ l \ 
^ P"- v l' 7. ft«/S„ fc -5 ^ fc A7 
bv^-lJ^-y^Ttf-fb?- 
^LX«ffl$nS<7)T% H^CP. 
-tf-^gftCf^fflX^ 5Uy7 



If (--Sffl X # S b v 7s ^ - A< (fc 
i: ^.^Z80ft b A b v7 ^ -^HL 
b v 7 ^ — N 8086ft b AXb it 7 ^ 

^niis^©bv7 ^ -XI* P * ft 
lt#*rX#ftlv7)tlftU 68000 
Xvi^AftffrJW^-o $ ofti^o 
f-yU^y-n LX&fttf 
D2t Djfcf^ "9 t)\ D1 i: D7fe* ■) 

Z. Z TWSlfife. U ^o ft^Xx 
— ?bv7?— ^T Kb7bv7 

^-^^^^otz-^ttfc©/:^ i^ 
•5 Z £-Xr*>% WM&HZT-9 b 
v 7 ^ -XT' K b 7^^(iX# ft 
l^U T 7 Kb7bv7^— X>H^L 

(JX#ft^©/4 fc.i^Ztltts 
^tlXft (TfjS^UUy^^ 
-^-t^XiftCLX L i rjfc"b, 
T 7 K b 7 4: x- ^ ©BJ5ift [SSIJ/J 5 
X# ft < ft o X, *> Pttfibfr&K 
<4'oTLSU U ^ftl^c^) i 
frt U-5 * h n— : 7*t©IQt.z«fc 
*fc©t,S*)m>o 

#Mrf/j\ ^hp-^tt©!^! 
^l^x.(s; ^ h a— ^^bb^frt 

Tl^68000©"7-j.7*;KZli N 
CWMPU«£Mtt£frJB|Fg 

eu/c^Hz (i^^ft i nx* < n ^ i ^ 

ir/j<$>?) ^rlizm^z^tiftu 
©X*^*^o *S±^*> L irto 

#fe©X\ *©-tz-^XA#5EA,f:: 
b* % ft*^^ t^Kt ftAfc*^» "5 o 
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hA^xo>i»a*»*uriKa)Tcfc5U<tto 



4-^ 12T<7> 6 *±©*At*££*f i£ L 
Tl^S-fo MSXT'7 7 h£f1^T&^ 
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<nt£0)T\ MSX©7°n^AL*rT*# 



77-f-y ? W -f x~— ^ 5 a— ? ^ * 

T*l££ffl^T<fr5£l^T'Lcfc-3o fc 
fcf, *»££*£ S#<7)A£*:££L 
iMatft >WQc 3 t K(DX\ ct - < # 



n*z>7)iz\hm&%i%± 



yT)Vai*\tj&1ft\z)sM*W9fr&''?t 



?J^Ai/3 •^©T'S'T.^h 
'F?R»jV<DteMl3.ii. 7y)lz\ 
A©-X-A##S&7?r35tttf3g 

jgz£*©H8/*N¥«/*I*/* 






«SC^aHALWK3f 



M^9fcv:Cfc©*£A&*#>'Ti>*? , c 



e#tt;iA/«:tf-A£liDfcu 

o £SA,£Ufcg#©l[Jl£ 

#-££§<> HALP5ERfriS, -£5 
Mfflis^n^v- *i»5£ 



©A, ^sbrtoir-ro 

£5*5, IMSifcttLlJSBIfl-tH 



i*§Sfcn0425-27-0555 A»liS #± 



liji§&e03-3252-556l AUSMa &2L *tt 



ttscsa^su-v^h 



Sa-il/K-ftt-? SJCStt^ib 



-/a ? ^ v-&y- Ar^f-f ^-^H ! 



MSX, POS/U— X X6B000~> 
D-X FM TOWNStttEU 

«8«r©?n^v-£iM8ur 



£9 E, HS»i7 7 -tz>^ : 5-, 
Affl7n^5Af^ X^££8# 



mu>zb**)'k\*A.'Si>.m*ti'*'U 



■£<ftEws€<timwi 



*Z©35&fc ! *ill©ttns 

«©nv try tf^tawfics**; 

•T-A^gijnSo «ltt&lM:*£# 

$o *f-Dfc&-i&Eti*u£-e:A/ 



im^O03-3924-5727 AWi^ £+M 



1^^003-3839-1013 A£fi=£ JJtSB 



nrH^iC^a 



*asaaH-r^x 



Bffii^ft^niSieio* ^§ot it 1 



izS^S-TSUxSo KffliLSI 
fSH-^SI »ti £ l^ o fc A- H £ 

1 ?»*e * r *©iw*£«;wt 



®-f >#*. S 'J 7JUx+f -fx- 



1 B«W±30«fiE*r©73o» 
/#4*f 3E ) £il^£©7?tJ!iffio 



f(¥ 



r>to-c^iia^siofe6^raiiv^ ! 



0<qJ«S5©#<i:a3!gU©&&fco 
-X-AV^hftOtt^-A?-^ 

#7K-f>s»©r-r ivfr&fln 

Z AJKV7 h«!fpft<*!»©*fcp q 



©ffte$nn\3:-ro 

^P^3V-PCBB-PC98-MSX 



Ugjfc IsaO3-3P37-867B/l$paO7B-303-250eAWi^ is SfflJffl/^pffllL^ 



iS65tO042E-2B-1980 -tf^-^^P^'^^ A¥fi^ WW 
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#ti^ior> z<Dmmfi>t>ti i z>£ : Diz%iz>£-c£tt 

Ovy-)\>*fto *» 2 TINYSH.C 



iZM L JL— «?-*<*> -3T(5LlC 

MSX-Cte C0MMAND.COM £ ¥& 
?nizfotzZ> I£:i7)?(7)yi 
jb(i*tLT r ko£*M^£n:&;b 

•5«*:-3fc::££<J:<M<o 

t'ya7^>iil/ (MSXViewtt if) 



UI/A-HUEiS 



Z©7°a 7*7 AfiMSXC Verl.1 
t Vert .2T*=i >v "?< JboTtlo — SP 

US©T\ V—%7T'fMt-CW 

A>TINYSH 

£A7jLJ:-9o Hi5C*U>h K 

7^7'^U>hf^U^ r- 'J — 

SR^tf. com)©— ita^^ $ n 

So C©JHffiT** — 7JU£a#J© 







fttfNft seek&W!! 



\ 



feirnxmsTi-ziy-o^TO 

-*2/-^r* Z £ lid: < fr&fr 

nSo i/— 7tii, 77-ob©^ 

^.QWt&ziitio o/ru £E 
«S©BU«iiI*©CMSX-C 

aWST IvJiWSastf&U©*?,, 
ttF*3g|5H»<!:l\5fc©tfa59» - 

izfflii*nru§ : fe©^S5o li 
tjtfBiosrocfesat©^ 

Z©W»B«U:_seek(!:U5H» 
tfMSX-CCD^-f^'J-K:* 



r 7 y -f Jb/K-f >^-« 5/— z 

STATUS 

_seek (f d.of f set.mode) 

FD fd; 

Int offset: 

TINY mode; 

off setfttz\J7 7 -f Jb/K-f >* 
-*WT5o mode»0©i$ 
77-Ob©5£s?ifrt>, l©£SS! 
S©77-OI//K-f >*-©(£■# 
6, 2©£S"7 7-Ob©*§fc9# 
to&ifl^&toSo M0mti7J"( 

)it^-yynnzi\u.i\L^ 

ERRORtf&So 
_seekW«ttfc»««intffi 

32+P A-Y K lyjM£»r*£lve, 



^J_J 



A (Z^T S =1 "7 > K 7 -f > £ A7D 
-KfribA7JLT(5U\, 

■9-/5** u-7 v y— c*— v;b 

T*#Sd;-9tz^oTi^o K5-C 

7>^t s £ # issued* "c 
esq*— & 



C © 7° P 7* =7 A (J SCREENO© 
7"U>7-r-7*Jb£^ffl % M© 
X^idJ7Jl^¥Attj2)T-li£ < , 
jt&BDOSfc-H— JbL'CVSo J 

fc D0S1 i: DOS2M7j(;^i^-r S fc 
So MSXCVer1.1T-P>/\ <;u-rS 
#define D0S1 



J:o4v\'7f7 7'r^^TLT 
ft^HT©DIR2 . MAC£ ^©^- <^ J: n 3 >/ tfAdMAStrftltf 
v©TINYSH.C?rA^ LT> Tlfi© x-f T.v-{3TINYSH.C0M*<T'# S 



jK^^yp-ov 



M8fl =DIR2 

CF TINYSH 

CG -rl2BB TINYSH 

M8a =TINYSH 

L80 CK. TINYSR CLIB/S. DIR2, CRUN/S, CEND, TINYSH/N/E:XMAIN 




ir-fb^h';— *-* 



ffirst::ex 
push 
pop 
Id 
Id 
Id 
jp 



de.hl 

hi 

ix 

b.c 

c,4flh 

(fnexti + 2),ix 

bdos 



bdos equ 

calslt equ 

exptbl equ 

chgaod equ 

gtstck equ 

gttrig equ 



aflO05h 

BOfllch 
Bfcclh 
B005fh 
000d5h 
000d8h 



nwrvr« equ 00177h 

vrtvdp equ 00047h 

1 in 140 equ 0f3aeh 

excall lacro add 



Id iy, (exptbl - 1) 

Id ix, add 

jp calslt 

endi 



fnexte::ld ix.0 
Id c, 41h 
jp bdos 



screen:: Id 
Id 
Id 
Id 



d,a 
a,e 

(linl40),a 
a.d 



excall chgiod 

wtvrai: : Id a, e 

excall nwrvri 

wtvdp8::ld c.a 

Id b,e 

excall wrtvdp 

sticks :: excall gtstck 

strig§::excall gttrig 
end 
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c 

CO 






TINYSH.C 



A 3W« 



linclude 

•(include 



<stdio. h> 
<bdosfunc. h> 



VOID screenO.«rt.vdp<).wtvrai().keyoff(>: 
char stickO.strigO; 



(define DIRMAX 112 
Sdefine BLTBL 8X880 



int 



HG: 



A -fy-yJ^r—fiwyTYVX •/ 



/• -tm l^MJ-xyr-'J 



a * v*.-vmscm •/ 

char »MES8 = " - ; 

char *MES1 = "(CR):Go or Chdir (A H):Drive Chenge (ESC):End"; 
char «CLRSTR = "Yxflc"; 



VOID 

char 



VOID 
char 

( 



putstr(pt) 

•pt: 



A 5C^=9litB^3 •/ 



while («pt != '¥8') 

bdos((char)2,«pt",fl); 



blink(x.y.f) ArU^SS'/ 

x, y. f ; 



add = BLTBL > (int)x / 8 * <int)y • IB: 
wtvra«(add. f) ; 
wtvraifadd * l,f); 



char 
I 

static char 

static char cnvO = 10. 3fl. fl, 28. fl, 31, 0, 29, 8! : 
char s, sc; 



keyscan A *-»#>"' a -f X-f -f ■/ 

stbuf = fl, tlbuf = B, t3buf = B; 



sc = fl; 

while(bdos((char)Oxflb.B,fl) == fl S& sc ^= fl) i 
if((s = stick ( (char) 1)) != stbuf) I 
stbuf = s; 
if(s != 8) 

sc = cnv[s]; 
[else if((s = strig((char)l)) != tlbuf) I 
tlbuf = s: 
if(s != B) 

sc ■= 27: 
[else if((s ■ strig((char)3)> != t3buf) ( 
t3buf = s: 
ifte != 8) 

sc = 13; 



if(sc - B) 

sc = bdos((char)8,fl,( 



VOID 



VOID 
< 



return (sc): 



blclrf) 



A 7>J>?7—7iW>mit'/ 



int i; 

for(i = fl;i < 26fl:W) 

»tvra«(BLTBL + i.fl); 



siniO 



A x?>)-yt 



int i; 

screen((char)fl, (char)8fl); 
wtvdp((char)7. (char)flxffl): 
putstr("¥xlbx5"); 
wtvdp((char)12, (char)BxfO: 
ttvdp((char)13. (char)flxlB) ; 
blclrO: 



VOID locate (x.y) 
char x,y; 



A Xm&rtilXcnm '/ 



static char pos[] = 127. - Y/ , fl. 8, fl) ; 
pos[2] = y * 32: 
pos[3] = x » 32; 
putstr(pos); 



int chklog(a) 
char a; 



return ((1 « a) & bdosh((char)Bxl8.8.fl)): 



char 
char 


chkco»(pl) A 7T-frt* 
•Pi: 


static 


char •chkstr = "COT: 
char f, »p2: 




p2 = chkstr: 

ihile((.pl != '.•) && (.pi <-- 'V8')) 

if (.pi.. == •«■) 
return(B); 




f ■ 1: 

»hile(' P 2 != 'W)( 

ift'pl != »p2) ( 
f = fl: 
break: 




pl",p2**.- 


) 


re turn (f); 


Jifdef 


DOS1 


typedef struct ( /'T-fUPh 
char drive: 
char naae[ll]; 
char diu«yl [11 j : 
int tlae; 
int date: 
int dway2: 
int size_l; 
int sizeji; 
) DIRENT: 


typedef 


struct { 

char drive: 
char naaeCll]; 
char dtaay[25]: 
) FCBENT: 


DIRENT 


•DIRS, «gdp; 


int 


gtdirO At<U 


static 
static 


FCBENT fl: 

char »sfn -- "????????COT; 

char buf[3]; 

char i, j; 

int e; 

DIRENT 'dp; 



for(i = B;i <sizeof (FCBENT) ;i") 

•((char.)((int)(&fl) • i» = B; 
strcpy (f 1. na»e. sfn) : 

e ; fl; 

dp = DIRS = (DIRENT.) (»alloc(sizeof (DIRENT) • DIRMAX)); 

bdos(_SETDTA.(int)dp,fl): 

if(bdos(_SFIRST. (int)(&fl),8) == 255) 

return (B): 
do( 

for(i = fl;i < 3;i*«) 

buf[i] = dp->na«e[8 • ij: 

dp->naie[8] * * "; 

j --9: 

while(dp->na«eL>*] ! = ' ') 





dp->na»e[j - 1] = '. ' ; 




ford 


B;i < J;!**) 

dp->naieU**] = buf[i]; 




dp->na»e[j] = '«)•; 




«*+. dp 


**; 




bdosLSETDTA.(int)dp.fl); 


l»hile 


(e I- 288 && bdos(_SNEXT,0,fl) == 0); 


return (e) ; 

I 




Sendif 






Jifdef D0S2 






typedef struct 


( 


A r-d^MI-fl 




char 


fl: 




char 


na«[13J; 




char 


type: 




int 


tiae: 




int 


date; 




int 


dmay: 




int 


size_l; 




Int 

I 


size_h; 
FIBSUB; 


typedef struct 


( 






FIBSUB 


fibs: 




char 
1 


du«iy[39]; 
FIBENT: 


F I BENT fres; 






FIBSUB 'DIRS. 


gdp; 





int gtdirO 



A x-fl^h 



char ffirstO.fnextO; 

char i, «pl, *p2: 

int e; 

FIBSUB «fp: 

e = fl; 

fp . DIRS = (FIBSUB*) ( 

■allocfeizeof (FIBSUB) • (DIRKAX - 1) ' sizeof (FIBEHT))); 

if(fp== NULL)! 

printf r»e«ory error") ; 
exitO: 
I 
if (f f irst ("•.•", &f res. Ox Jfl) 1=0) 

return (B); 
dol 

if((fres. fibs, type & flxlfl) « flxlfl 
il chkco«(f res. fibs, naie) ~ 1) ( 

pi = (charrtfp. p2 - (char*) (&fres) ; 
for(i = B;i < sizeof(FlBSUB);i**) 
♦pi*. = *&.**; 

e**.fp**: 
> 
}»hile(e != DIRMAX &* fnextO « fl): 
return (e); 



char 
char 
( 



chkdir(et) 
et; 



/• r-fl^HJ-WieBS-H*.* •/ 



if((DIRS[et].type 4 BxlB) 1= BxlB) 

return (B); 
return (1); 



Sendif 

go(et) 
char 



et; 

char •pl,*coaline[2]: 

locate((char)fl. (char)23): 

putstr(HISB); 

locate ((char)B. (char) 23): 

putstrC Input Coaund Line:>"); 

pi = <char»)8xflfl8fl: 
•pl = 125; 

bdos((char)flxfla. (int)pl.fl): 
• <pl * *<pl * 1) * 2) =•«•; 

cc*line[fl] = pi * 2; 

coiline[l] = WILL; 

Putstr(CLRSTR); 

blclrO; 

execv(DIRS[et], naae. co»line) ; 



/• TT<)'T-i'-iy<Ktm>/ 



VOID 
char 



■kfniflxif, pt. type) 
•buf, 'pt, type; 



char i. k; 



/♦ *»nffl7 7'OI'*-A0XftS; •/ 



for(i = B;i < 16;1**) 

buf [i] = * ' i 
buf[i] = *W; 
i ' 2; 
if(«pt == ■.•)! 

«hile(«pt != 'W) 

buf[l**] « 'pi**; 



>else{ 



i * 2; 

**ile(«pt != •.' &&«pt != ■«•) 

bufti**] = «pt**: 
if(«pt != 'W'X 

pt**; 

for(k = ll;k< 14;k**) 
buf[k] = «pt**; 



Sifdef D0S2 

if ((type a BxlB) = BxlB) I 
buf[l] =•<•; 
buf [14] = '>•; 

) 
Sendif 



ptdirO 



A 7T-fU-. 



static char 
char 



buf [17]; 
iB.j; 



blclrO: 
putstr(CLRSTR); 
gdp = DIRS; 

locate ((chartfl. (char)23); 
for(ifl = BUB <23;iB**)f 

forfj = B;j<5;j**)( 

if (IB • 5 * j >= RG) 



#endif 
Jifdef D0S2 



goto ESC: 
■kfmtbuf. gdp->na»e, fl) ; 

■kfnaflxif, gdp->na»e, gdp->type) ; 

locate (j • 16.ifl); 
putstr(buf); 



locate«char)fl, (char)23); 
putstrUffSl): 



iove() /♦ #-", 

char xpos.ypos. xflpos, yflpos, et. ks; 

xpos = ypos = xflpos ■ yflpos - D; 
for(;;)( 

blink (xpos, ypos, (char) 255); 

if ((xpos 1= xflpos) II (ypos != yflpos)) 
bIink(xflpos. yflpos. (chartfl): 

xflpos * xpos, yflpos = ypos; 
et = xpos / 16 ♦ ypos • 5; 

stitcMks » toupper(keyscanO)) I 
case 28:xpos *= 16; 

if(xpos == 88) 

xpos = fl, ypos**; 
if (ypos • 5 * (xpos / 16) > 

xpos = ypos = 8; 
break; 



Kifdef D0S1 



tendif 
#ifdef DOS2 



- 1) 



case 29:xpos -= 16; 

if (xpos " 24B) 

xpos = 64. ypos--; 
if (ypos - 255) ( 

ypos = (RG - 1) / 5; 

xpos = (RG - 1) * 5 • 16: 
I 
break: 

case 3B: If (--ypos == 255)1 

ypos = (RG - 1) / 5; 
if(xpos / 16 > (RG - 1) X 5) 
—ypos; 
I 
break; 

case 31:if(**ypos > (RG - 1) / 5) 
ypos = fl; 
else if((ypos > (RG - 1) / 5 - I) 
&&(xpos / 16 > (RG - 1) * 5)) 
ypos = B: 
break; 

case 27:putstr("¥xc"); 
blclrO; 

bdos((char)B.fl,fl); 
break; 

case 13:go(et): 
PtdirO: 

xpos » ypos = xflpos = yflpos = fl; 
break; 



case 13:if(chkdir(et) != fl) { 

chdir(DIRS[et].na»e): 
free((char-)DlRS): 
RG -- gtdirO: 

I else! 

go(et): 

1 

PtdirO; 

xpos = ypos = xflpos = yflpos = fl; 

break: 



if ('A' <= ks 88 ks <= "h*)! 

lf(chklog(ks - 'A') != fl)< 
putstr(CLRSTR): 
blclrO: 

bdos((cnar)flxfle.ks - 'A'.fl); 
free((char«)DIRS); 
RG = gtdirO: 
PtdirO: 
xpos • ypos = xflpos ■ yflpos = fl; 



■ainO 
( 



siniO; 

RG = gtdirO; 

PtdirO: 

■oveO; 
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^sffl^a 



m £ tto tuts*) ifrfT<Dmmz 

ifcboT^*<7)T\ ^/!{2;II^' 
77-f -y^^E— KilV.N-5 t><7){ZO 

;I^^7 7 -f -y ? ^E- K &ULC 

Obiter** 

;H^E- KlZ(* **<b 3 * t*(7) 

KHioTX^Kf 7*>K7)K 
>y h&tfaSbSo "CO^A^Ci. 7t 



^E-KO 



*-K1 



^E-K2 



^E-F3 



64X12 
16X16 
80X12 
12X16 
64X24 
16X16 
80X24 
12X16 



33* 

7*>h 

:*$* 

7*>h 

7*>h 

7#>h 
^fc*— K2fc 3T*(i-r>^- 

U7,^E- KSrfllfflU lft<7) K-v h 
tt«r2fg(Zl(I^LT^^LTU-5 
^Tfc^'buteztu biAfzl* 
Tfc#, iH^z&^ttsz^ 

X\ iH^E— KT*ftU£ # (ANK^E 

— K)ti^i;«fc-5tc, colore 
color 7:^fe,Wf:fe 

Z<7)2 1 HANKIE- Yt£^tz 

<-mtz a tztzLmm-&<nmmt 

X7-Cli4 *b ft^fccocosmt 



ft# * j: -5 tz ft n(2; m& t —m 

fc&fciS* L fc 'J , CIRCLE^^-^ 

line^^-^ t' t mishit xm 

'MrftW® £tt* ~ t &Tg S 2 

ftt\ JliSfeW^felz^LT 
fcSfei: la] U izft -o t L £ i (Dtz 
£ tzM^- K T*(2 COLORE 

fe-C#ftl\, ^V«y h«*.S£ 
$W^(7)J:-5(zLJ:-5o 
CALL PALETTE (/\°U-y h##, 



fe£ l z nA^Kwr *»*y 

77^77^-Fm ANK^E- 
K £ III U J: -5 (Z COLORE £# 

■%-mvm^y'^ 7 -r -y * ^e- k 

(zouTI#BSL2o Zct^-K 
SrfsS/ttfLINE, PSET, CIRCLE, 
BSAVE, BLOAD, COPYft£\ (Si: 

a, ir<75 *■■? 7 -r -y ? m<ntffi*i £ 

Kirfr'T'l ?b(Z;1^^^^ 

T * z £ 6<T* *(7)/^ %ft*tz % 
4-S T'lftB^ L T # frl^E- K £ 
££*?? 7 -f «, ^- K GfcK,* 

£ TZt&y? 7 -f -y ?^E- K's 
A.*2FS6£fJft Z ft(2 SCREEN^ 
<p£"f$9o ^fr^SBfcteANK^— 

KT-^rtS £#£:£< III i;/co 



100 _KANJI0:SCREEN 0: CLS:KEY OFF 
110 INPUT "VH^^ - CS-AULT h $ t> . 
;KH 
20 INPUT " x ? i; - y ^E - K 5: A T^J L X JF 
S t>, ";SM 

130 SCREEN SM:C0L0R 15,0,0: CLS 
140 ON KM+1 GOSUB 190,200,210,220 
150 FOR 1=2 TO 15 

160 COLOR I: PR INT "BASICS ftr $ !" 
170 NEXT I 

180 IF STRIG(0)=0 THEN 180 ELSE 100 
190 _KANJI0:RETURN 
200 -_KANJI1 :RETURN 
210 _KANJI2:RETURN 
220 _KANJI3:RETURN 



«t-3T^^U->5^f>flt256, 
1821 2 K >y h T1 6S^tf, ^ <7 U - 
> 8 fc <b 256 fe^7F 4: U -p fc fc 
Z h tz tztz L*9 l ) ->"E- F 
**0 fr 1 <7)*g-(* x -ll^x+T. h 

E-KA®WnTLSvo 

Z <7) J: o (z L TIS^E- K «r^ 
^Lfc*i:ttx ANK^E— K<7)^v 
7-f •yi7 J E-Ki:|5)L:j;^(Z, ^7* 
77<7^ ^*fi&-7 z i: ^'T# 
^o >I^C7)^7FtZt2PRINT^^-^ 
1^fc-7o /©iCO^^: (2 LOCATED 

■p'-o 

i /z;i^(7;7 * > h <75«J88tt % 
CALL KANJIl^-cD^E— K(Z«t o 
T^t * ;I^- K# ft *b« 

16, |ft16K-y K7)7*>h^3\ ^E 
- K*r 1 ft ibfl|1 2, ffl 6 K -y h (7) 
7*>h^^nS S^iH^^E 
— ,K2i:3(*. OJ'-UX^- 

Kfflfc'o «tr>TSCREENXT-f > 
^ - U 7. ^E- K ^I^t L T fc/rft 
l^JEL<^^$tlftl^<75T$l%- 

iZT: Til^^'v 7 -f -y ^ =E- 
K«— #^HH$)SC7)^S "5 A\ 
7 * > h £f£:£"f S CALL KANJI 
^^■^0*^3 £X°(F>4W$fol)s 
VRAMCO^it ^Ig^r S SCREEN 
ifrfr# 2 ^«b12S T-<7)10a^I*S 
(SCREEN 9 (i *(7) MSX (Z (2 ft 
ftU) 2 -9 T^C7)^l^-^^-ti-T'IS: 
ST S3l^^ : 7 7-f >y^^E- K(2x 

tz$)S i: i:*<7)^E- h>^x.(2'^^ 



c7)*^(2-^#u>^^n(2; ifnts 
a^oh.sz:£t2ftiv(7)/^ 

U7x h 1 (2 CALL KANJI^^-i:, 
SCREEN^^-(7)M^-g-^ it % H^ 

^Mtzft s (t i:"Z (757p ^*7 A 
-e*? U->^E- K4- 3 (z-fS i: 
mm < z i: ^<|bz So #sw& 

CALL KANJhfr^-fcjII^T 1 ** 

h^-KTise-Ji:, H®73^'*$ 
niLi^ <7){2ifSIW*/fi: JS-3 o 
L^Li?7'77^77E-F 
T*(2, CALL KANJI^^-^r-f^ffl L 
TfcpJ®(2>g*$nftl^^ Z 
<7>I4«%«>L^ Eli;®®lztfH6 

K«y h(7)7*>hi:«Sl2K*y h<7) 
7*>Y*W ;l-tf T^-7 z i: fe 
t'$S-ifo tztth-h— VJWHBiM 
lt&±lzm£tlX L£l COT-m?: 
OttTHLl^o »l«b1*(Z PRINTS 
t%t?t, BU(Z*^/c3t^COJi 

tz±##LTLS^zi:(zftSo 

i fcPRlNT^^-%-^-7 y7>*T-(2, 

1 XSW&.<7>imiz Ltirmf&tl 

7FfSZi:*<T-#ftiv ^-niz^ 

^-rs3t^zfcj^feL*oit*bti 

fti^o -ti-p^ < i7*7 7 -r -y ^ ^E- 
>^i^?rO(tfc)||^7 * > h $-11 
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U7.hE 


j m^<Dm^ij&^?>^?> 


100 


_KANJI0:SCREEN 5 


1 I M 


OPEN "gr P :" AS Si 


120 


COLOR 15,0,0:_CLS 


130 


A$ = "BASICW WW 


140 


B$="BASIC":FOR 1=1 TO 5 


150 


READ C:B$=B$+CHR$(C) :NEXT 


160 


KANJ10:LOCATE 0,0 


170 


COLOR 15,0:PRINT A$ 


180 


COLOR 0,15:PRINT AS 


190 


KANJI1 :L0CATE 0,2 


200 


COLOR 15,4:PR1NT AS 


210 


COLOR 4,15:PRINT A$ 


2 20 


PSET(0,64) 


2 '3 


COLOR 2,1:PRINT Jfl,B$ 


240 


COLOR 1,2:PRINT #1,B$ 


25 


AKCNV(C$,A$) :COLOR 15,0 


26 


FOR 1=0 TO 1 :FOR J=0 TO 7 


270 


KMID(D$,C$,J+1,1):_J1S(E$.D$):F=VAL 


("&H"+E$) 


280 


IF 1 = THEN PUT RANJI ( J* 1 6+ 1 , 80) , F , 


4.PSET 


290 


IF 1 = 1 THEN PUT KANJ1 ( J * 1 6 , 8 1 ) , F , 1 5 


.TI'SKT 


300 


NEXT J, I 


310 


GOTO310 


3 20 


DATA 233,150,240,155,239 




It, PUT KANJIt^^fr^o # 

PUT KANJI(XJl1i, Y&m), JIS 
: M^l— F.fe, P^*^*'<U' 
-> a >, "E- K 

PRlNTifc^f^ 4 VMUzmA. 
tzm^Wfit %>Z£ tfX'Z % t\ 

ttz=E- Ht'Of-l'X*- K 

<ntzabtzmMZtiX^Zb<nx\ 
O#<bvio-50)16K*y h^CO^JR 

1 # -b«# g co =7 -r > £j 1 *m 

Ute'U ^tl6K-y h$&8 K-y K' 
||JR 2&'b : §1&#g<7)7'f >£ 

*^T?>o ^fB§L^i:#co{iliO 
H&So 3:/cZc7)^(4;il^=i — 
F 14 JlSjfl^ 3 - K xmH L & W 
ftlffc h & L ^<7)Ti£& L 4 o o X 
^5U(7)+<7) 1 ^fcS^T* £ § 
tt^W:, CALL JlSt^ft £'£#-? 

ti^r %x* *^^^o %~&'z 

T I *fttfMSX2T M£ffl f £ Z £ 
tfX'ZZfo 

•5 It & 31^:7*7 7 -r v 1 =E- K 
[= 14 fe -5 a £ -z>X^- *kWr<t 5 73 



<7^*- F Ti4 fc# U #<7\ 
PRINT#^-£ot!H75">£/:: Z<7) 
^^•t4ANK^*7 7* ? **— F fc 

A<oTPRINT#^$HsH £'**: 
£r> ?&£&(&!$¥>- KT'life 

^TSZfctf-CgSo iCL^ 
MfZOT^Tfi^fcSlSm^ £ 

HsfP^-5 7-f v **- FC«*S * 

^%m7FXZ ft^PRINT#i^£l4 
fcl^^T, PRINT lfr^£ PUT 



Z *> tzo $&3£J3t tf'J&Sfc h 
PRINTS, #ftl^j:7*>h£ 

C>c#f^-5 

'J7.F ZtiUiiTifc^Lfc^ 

fc ^ -5 z £ T-4- £ ( 4 ts L * 1 \, 



Hmt^£7T-i)U<D 
7<7)7n 7=? AfcffcoTl^i 1% 

* z x-%Wi<nx<*b\ y > ?J± 

7?% *ttxmm.$:m -? iz it z 

•3TtitfJ:i.v7rcra x o 

T*g*>£i^iz&$ e zcntzsbr 
— 5"<— *<nzfn7zyAt£t'lzlt 

mitz7T-oi<T? -fe 7>mn &tz 
&to&*. zcozi-^-- T-feib^ 






*\ 5t*^tZZ(7)=l-^— T1@^ 

L tz t # (4, ig®<7)KH^^ t'X'M 
&L&U.0 tz#><7)MK\m$kt CVIM 

L ^^cotf-^- fe (5t33gBc<7)«^ £ 

m%rz><T)izMKs$mm, zom 
mx-$m$ tiiz{&*-x&9\nzmt 

mkd$kis. cvDmm.$:*n?nm 

u 7. h 3 itzmnrnzmmm. 
Mm&m. f^ffl^iyc7)3fific75^ 





I J>¥MT$*? 


.7° 


n^7A 




1 00 


SCREEN 1: WIDTH 32 


110 


OPEN "sample.dat" 


AS 


#1 LEN= 


.4 


120 


DEFINT I.J,K:DEFSNG 


S :DEFDBL 


D,X 


130 


FIELD #1,2 AS BIS 


4 


AS BS$,8 


AS BDS 


140 


INPUT " 1 : * $ 3 S 2:3 


m 


";K 




150 


ON K GOTO 160,250 








160 


FOR J=l TO 10 








170 


X=RND(1)*100 








180 


LSEI B1$=MKI$(X) 








190 


LSET BS$=HKS$(X) 








200 


l.SHT BD$ = «KD$(X) 








210 


PUT # 1 , J 








2 20 


NEXT .1 








23 


CLOSE #1 








240 


END 








250 


FOR J=l TO 10 








2 60 


GET #1 .J 








270 


1=CV1(B1$) 








280 


S=CVS(BS$) 








290 


D=CVD(HD$) 








3 00 


PRINT I ; S ; D 








3 10 


NEXT J 








3 20 


CLOSE 








330 


END 









MSa^RiRS^SB^ 



znsz-ww&mizmmmn. ? 

SlzoL^rlS^>d:^:330i^B^Lr 

7;bJ , JXACDea<tf*L•rL^< 



s 

r 
% 



=107-24 

«3RIBSEffi*lU6-11-1 
7U-I7mBlUtJU 

BAS\cowmm 
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K^n^^wvw 







Alff 



1&5J5R 



tudDi 



»WJ*VSOOK 



MSX2 VRAMMKJSLt 



fifc-3 T»7; l ^ t 1 - v $9CA 



^ttSrSli; J: 1 cyp y **HfefiE 
P y * t limtt V±TttlzW)fr 



z?-&a>- j B*zmit i 




* J?S£<7) 7. -f— i> \Z h A- A-;b % 



fcBav.^«.KS#A < *H50^A < s ^f-/2 







3IHi£J:"5Ctt-3"Ci**<7rc* * 

(7)7 U— A£2j— V JU+— fr v 3 
■f*x-fy*TfMrU WKff 
fc L ^*p >y ? fafefcrttl! * *- * 

+- £ f:tt h 'J tf- A ^fft- f 

£ t 7 U- A<7)feM|£lZg;b U x 



"ffi 



io~iso asssss: 

190 — 2 10 *^-©3E3[ 

220—250 tt^i'J'-fflM 

260 — 300 X:/5-f h©S« 

310 — 530 5»-f MPS^i^x-yMiR 

540 — S30 y-AiBEC5ftfiE 

640 — 780 ^-XJltoSHMZO) 1 

790 — 850 =t=-A2)©&g-e©2 

860-1090 7-*-->3V©ffl8 

1100-1140 V*:/^©**-?**-!*.* 

1150-1170 * + : 5J'*-©EBSS 

1180-1300 sat7A-?> 

1310 *©3itn©tea 

1320-1330 t/V7—W!E. 

1340-1370 ^ijr-a©ffla 

1380-1990 Sa?-* 

S K A**S©«« 

X. Y tiff 

AD. B F. DAS. B D$ ffi?i-y^ffl 
XA.YA *©8»)ffl 




»fr 



6 OD ^ k a -< X 



7*ny?T7k£S&i x Ifc5% tK\ 

WTZiiK }5bL?>^frhffiT'$> 
l^e -9 o #*& *- y £ SfEtim $ fc 
i\fc -9 dt«(Z7 n y * ftft^t 

l^^T— $*£ U 7*-LT L * ^ 
£ Ltz± 



m^^ < M< tir> X L i -? T L vT, 
777 r-U — y3>^:ioTL 

mm* zzim Lxbhixiiz 
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0<77 h/'i-6-OTfc/)-U 



pROGRAMQOUSE 



i&ttPi 




*|&/f/Richard=# 

•?>y-7±iZWLblfr>X^Z&&L 

A ztDzfa-y^^ZMfTZtz 
*"f U*h®£A:*k H*tTS2: 

but y t. Y®*\+>, ^nt* 

A£fflT2:^*-A7.?-K 



MSX2 VRAMl28KW± 
U 3. MSI 25^-: yizfflW 

-sfc* * 7 ? ?—£•*— v;u+— 
*t-«fefrr*o mmizm*>T^z 

(7>*gi|g±.i::A«b#l*«J: -5 t-5±3ftL 
M& i Xtz t' U Ml t (£? U T-£fo 




•>:<i>:<i'Si':-i'!&:4 ! <m , :-i'i%':-i':- 



*-T-t^2* fLTTI, ±1, *2 X 
II, Tl, * 2 , T2, SI <75NI„ 






femtr<ISi:?c-7T<5„ mi J 3 






(7>^^Cv5tO^-g) 2S 7"7 k fc I* 



*> * *> i L X T * 7" -f <rt$m&m. 



®/©3/S@-«^X5'«^-®<^"©®'SX^®@^^ 



POWER PLAY2 



wm/«#; 



MSX RAM3EKKU: 



*>s.^£UzWMZ<F>Wmhh 
& s RPG.5o<7)y— A $[£$JL 

**£8rr::2:A<ltftff, 
7°u 7 =7 A £Hfr L Xfr h L tf 

®®A^ibnTy— A*i6* %„ 

T-_bT^*(zSfFLT, ®®_b^r 



^mctztbizit zzi)Hm&iz»> 
WcftHt* ft fci#p ^»w^«c( tn 

;K7) 3 -xn&ftZffitzTt.iiffir 

Z>±OlZt£^X^Z> 




SBfr 



6 (D y K A -f X 



*yA'J*ott<fc5 

^- A 3 C7) r K ;U 7 — #<7)igj£ 
*Kf'J;tfaLTSJ:oT\ ±A£ 



*^«c ? ^mizw-mmw.^ 

3^1-rs^Tf^h.ldr, fco2:^L 



ts 



90- 
150- 
220- 
250' 
290 
300 
310- 
350 
360- 
490- 
520- 
580- 



140 

-210 *-A2)fflS 

-240 »©BSOJa3 

-280 ssffltea 

-340 Pgia£±lot5>«HI 

-480 «H©Jaa 

-5io f-k.*-n-tr>& 

-570 «a©»i©KH© 

-7oo sa?-? 



X. Y 

E X. 
M$ { 
E N 
L V 
XP 
K 

H P 
EH 
P 
RO 
MG 



EY 

(n) 
$(n) 



iAa©l 

* -j-b-'y 

SUM 

*©§?}#» 
Dy K©>?fl#» 



=>3-h^n^3^im*! 



-Aia^W^St^lKffl^o tic 
jtr<^P^5ACDrtSCB8lyrB 

t< ic«s*HW-rt^L\©rs 

ftBf, B&Sv 4@K, HBKk^ 
ACDF«3§lCS8-rS«^«^x.-c:« 



ytiw^D D D5i5orL\§? 



g -107-24 

7Z 2/3-K7'D<7^Z J ^ 
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of tware tontest 



Xt°-Kfc^U^tl&9(;:[°]&UrU3<*: 
5CJftx«o turbo Rfiztt^xtmi^o 



STORM n 



1 o !£#;? ft-a >-^ $*t&$ < # 




MSX2 VRAM128K 




IV-yT'.bKtt'btfS 4-POT*^— y-y h^^attllf X^-^i"J T-fc' 



•lBWi<DBB«ffil^ttd:5 






9 ft -§-7°a ^7 A -9— fef* jlzJK 



y-vju 



?a.yju 



■7-fK 



^'J-5I-f 



Z>?^7 



i>— y- 



s«L/— y- 



#S5* 



*£- 



iSfco«£/M>u*sn 



ISfcO*iJig#**l\ 



mpMwrc 



«w**3fsca« 



»£HiiD-3 



'>L/fR/u-Cfr6375(S)C»g^5 



±7513)5* 



7-*5> 



s-y-oi/ 



U^EaVStMWl/ 



I5it-f;u 



iws-y--f;u 



?b*-K 



sss 



-sa< ©«^iqiij-cffiirr« 



iuosor<5 



Hrt>PWtti::SfcS<!:«#rs 



i^^i^rw 



?Ji/ufc*35<!:75[q]:££x.6n§ 



»0jfi<r73l6j«£*.S 



Fil^fS 



-SiEi!i?RA,rfr6<s^ir3 




(:JoC5*UU 



U-t3ffi5*r^CDtCDtfai*:L\<ti5tf»ca:o 






'Jv^-^yP^^A^r^SLTl^ 
Sto #ft&fFn a p(Z(i^>7 'J 
50^WIi>bftg;T o ^LTf£2 
J& 3S3ii%lzAiIL7c^B D q(Z(^ 
* ft ?'ft 3075 R £ 1 075 R *r If fe 

#fc\ AiiL^-m&liSE 8 B 
{ZTAKERU^^^ft-^ r MSX 



J&3i£ft3;:£lz&oT^i;-to 



®y- A yn^ASBH 

»>&£*Cz3^gi|c7,:t 'J v9-JU# 
&X\ (tt)7^*-<7)Sli(zj:U 
MSXv^v>f^h(Z?itfeT-# 3 fc 

(JTAKERUTiS3ET-# 5 fc(7)lzPS 
US To ifc> Ail^(7)^^f(i s 



(#0 7 1 * *-(-»« L£T ^ 
##>\ MuSICA ('90^1 0/1 -§-TlS 

it) &%m LXbfrt ^i-tt/u* 

•«75-;£ j«ft n a alz(i N £t 

®y P ^9 A Crieff L/;^fY7 
(7P7t-fV7^^t7 h-r 
-7Xc£*)£I£5L7ck(7} 
©MSX N MSX2, MSX2+, turbo R 
COglJo 'JZ^RAM, VRAM(7)^^ ^ 



ff735k ®l/73«rfettLfcfc<7) 

&mA<7)im, r& ) *mz uz& 

<n (ftflff, ft^ iz (i'^-r 7 u **^ £ 

C077(i, 1»»#<7)*^$-S(^ f* 

mmmm. $&. WMm^rbw 



fe =r107-24 

-f- 7.u-i7SSLUt:;iy 
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pOdAMJfOUSE 








10 **************** 

20 '* * 

30 '* su i tor i * 

40 '* * 

50 **************** 

60 ' 

70 ' 

80 ' INT 

90 ' 

100 SCREEN 5,2:OPEN"GRP: "FOR OUTPUT AS81 

:ON KEY GOSUB 470 

110 FOR I=&HD000 TO &HD00A:READ AS: POKE 

I ,VAL<"&H"+A$):NEXT:SK=1 

120 DEFUSR=&HD000 : A=USRC0 ) : SETPAGE0 , 2 : A= 

USRC0): COLOR 15,1,1 

130 DATA 21 ,00,00,01 ,FF, 69, AF, CD, 56,00, C 

9 

140 ' 

150 FOR I=&HD101 TO &HD129:READ A$:POKE 

I , VAL("&H"+A$):NEXT 

160 DEFUSR1=&HD101 

170 DATA AF, 32, 00, Dl ,01 , 1A, 10,21,04,02, 1 

1,08,00,CD,74,01,FE,77,C8,7D,C6,08,6F,05 

,20,F3,7C,C6.04,67,06, 10 , 0D, 20 , EA, 3E, 1 , 

32,00,D1,C9 

180 ' 

190 ' *** COLOR CHANGE 

200 FOR 1=0 TO 15:READ A: P$=HEX$( A) : A$=M 

IDSCPS, 1 , 1):B$=MID$CP$,2, 1 ) : A=VAL< A$) : B= 

VALCBS) 

210 READ C:COLOR=( I , A, C, B) : NEXT 

220 ' *** CHARA PATTERN WRIGHT 

230 SET PAGE0, 1 

240 FOR Y=0 TO 17: FOR X=0 TO 8 

250 READ A,B:C=VALC"&H"+HEX$(A)+HEX$(B)) 

:VPOKE Y*128+X,C:NEXT X, Y: LINEC0 , 16 )-< 15 

,23), 1,BF:SETPAGE ,0 

260 ' *** SPRITE SET 

270 A$="":B$="": RESTORE 1580 

280 FOR 1=0 TO 31 

290 READ A$:B$=B$+CHR$(VALC"&H"+A$)) 

300 NEXT:SPRITE$<0)=BS 

310 ' *** OPENING 

320 SETPAGE0.2:X1=0:X2=0:COLOR 15,1,1:CL 

S 

330 PRESET<100,50):PRINT81 , "tofcy <^" : PRES 

ETC50, 120): PRINT* 1 ."STAGE 12 3 4 5 

340 PRESETC20, 150 ): PRINT* 1 , "fl-VJlt-OJ S95T 
" STAGES ttX.fc<l? M :PRESET<20. 1B0):PRINT**1, 



"SPACE KEY?" GAME STARTS" J-*., " 

350 SETPAGE2,2:GOTO 370 

360 LINE<96+X2*24, 1 19 )-C96+X2*24+24 , 128) 

, 14.BF.X0R 

370 LINE<96+X1*24, 1 19 )-<96+Xl *24+24, 128) 

, 14.BF.X0R 

380 X2=X1 

330 IF STRIG<0)=-1 THEN SK=0 : GOTO 470 

400 IF STRIGC1)=-1 THEN SK=l:GOTO 470 

410 ON STICK<0) OR STICKC1) GOTO 390,390 

,430,390,390,390,450,390 

420 GOTO 390 

430 X1=X1+1:IF XI =5 THEN X1=0 

440 GOTO 360 

450 X 1 =X 1 - 1 : IF X 1 =- 1 THEN XI =4 

460 GOTO 360 

470 KEYC 1 )OFF:ON XI +1 GOSUB 490.500,5 10, 

520,530 

480 GOTO 540 

490 RESTORE 16 10: RETURN 

500 RESTORE 1690: RETURN 

5 10 RESTORE 1770: RETURN 

520 RESTORE 1850: RETURN 

530 RESTORE 1930: RETURN 

540 ' *** MAP READ 

550 A=USR( ) : SET PAGE0 , : X=0 : Y=0 

560 FOR I=&H0 TO &H67:READ AS: POKE &HD0 1 

0+1 , VALC"4H"+A$):F0R J=l TO 7 STEP2 

570 B$=MID$CRIGHT$("0000000"+BIN$(VAL<"& 

H"+AS)),8), J, 2) 

580 IF BS="00"THEN 610 

590 IF B$="01"THEN COPYC0 , )-( 16 , 8 ) , 1 TO 

(X,Y),0 
600 IF B$="10"THEN COPYC0 , 9 )-< 16 , 17 ) . 1 T 
<X,Y),0 

610 X=X+16:IF X=256 THEN X=0 : Y=Y+8 
620 NEXT: NEXT :X=0:Y=0 

630 READ PX,PY:PAINTCPX,PY),7, 1 :KEYC 1 )ON 
640 ' *** MAIN 
650 * *** C MOVE 

660 X=8 : Y= 1 3 : PUTSPR I TE0 , C X* 1 6 , Y*8 ) , 1 5 , 
670 IF STRIGCSK)=-1 THEN 670 
680 IF STRIGCSK)=-1 THEN GOSUB 790 
690 ON STICKCSK) GOSUB 760,720,740,720,7 
70,720,750,720 

700 PUTSPRITE0,CX*16,Y*8), 15,0 
710 FOR 1=0 TO 50: NEXT 
720 GOTO 680 
730 ' 

740 IF X=14 THEN X=14:RETURN ELSE X=X+1: 
RETURN 

750 IF X=l THEN X=l: RETURN ELSE X=X~1:RE 
TURN 

760 IF Y=l THEN Y=l: RETURN ELSE Y=Y-1:RE 
TURN 

770 IF Y=24 THEN Y=24:RETURN ELSE Y=Y+1: 
RETURN 
780 ' 

790 ' *** B MOVE 

800 GOSUB 1110: IF BD$O"10"THEN BEEP: RET 
URN 670 

810 PUTSPRITE0,<X*16,Y*8),3,0 
820 IF STRIGCSK)=-1 THEN 820 
830 IF STRIGCSK)=-1 THEN PUTSPR I TE0 , CX* 1 
6,Y*8), 15,0: RETURN 670 

840 ON STICKCSK) GOTO 980,830,860,830,10 
40,830,920,830 
850 GOTO 830 

860 X=X+1:IF X=15 THEN X=14:G0T0 850 
870 GOSUB 1110: IF BF=1 THEN BEEP:X=X-1:G 
OTO 850 



123 



r 

880 GOSUB1090:GOSUB 1 160 : X=X- 1 : GOSUB 117 


1350 


PUTSPRITE0, CX*16 


217), 15 


0: A=USRC0 ) 







:SETPAGE2,2 








890 FOR 1=0 TO 16:COPY<0.9)-< 16, 17), 1 TO 


1360 


FOR 1=1 TO 15: COLOR I : PRESETC50 , 1 00 




CX*16+I , Y*8),0:NEXT 


):PRINT81 , "Congratu lat ions ! ! " 


NEXT 




900 GOSUB 1 180: X=X+1 : GOTO 830 


1370 


A=USR(0):GOTO 310 






910 ' *** DIR.W 


1380 


DATA 0,0,0 


, 17 


, 6 , 51 , 




920 X=X-1:IF X<=0 THEN X=l:GOTO 850 


7 , 


23 , 1 , 84 , 6 


82 , 4 


, 39 , 6 , 




930 GOSUB 1110: IF BF=1 THEN BEEP:X=X+1:G 


113 


, 1 , 115 , 3 , 99 , 6 , 


100 , 6 , 




OTO 850 


17 , 


4 , 101 , 2 , 85 


, 5 , 119,7 




940 GOSUB 1090: GOSUB 1 160 : X=X+1 : GOSUB 117 


1390 


DATA 1,1,1 


1 . 1 


1,1,1 







, 1 


.1,1,1,1 


1 , 1 


1.1,1 




950 FOR 1=0 TO 16:COPYC0,9)-C16, 17), 1 TO 


1400 


DATA 1,6,6 


6 , 6 


6,6,6 




(X*16-I,Y*8),0:NEXT 


, 6 


,6,6,6,6 


6 , 6 


6,1,1 




960 GOSUB 1 180: X=X-1: GOTO 830 


1410 


DATA 1,6,5 


5 , 5 


5,5,6 




970 ' *** DIR.N 


, 5 


,5,5,5,6 


5 , 5 


6,1,1 




980 Y=Y-1:IF Y<=0 THEN Y=l:GOTO 850 


1420 


DATA 1,6,5 


5 , 5 


5,5,6 




990 GOSUB 11 10: IF BF=1 THEN BEEP:Y=Y+1:G 


, 5 


,5,5,5,6 


5 , 5 


6,1,1 




OTO 850 


1430 


DATA 1,6,6 


6 , 6 


6,6,6 




1000 GOSUB 1090: GOSUB 1 160 : Y=Y+ 1 : GOSUB 11 


, 6 


.6,6,6,6 


6 , 6 


6,1,1 




70 


1440 


DATA 1,6,5 


5 , 6 


5,5,5 




1010 FOR 1=0 TO 8:COPYC0,9)-C16, 17), 1 TO 


, 5 


,5,6,5,5 


5 , 5 


6,1,1 




CX*16,Y*8-I ),0:NEXT 


1450 


DATA 1,6,5 


5 , 6 


5,5,5 




1020 GOSUB 1 180: Y=Y-1 : GOTO 830 


, 5 


,5,6,5,5 


5 , 5 


6,1,1 




1030 ' *** DIR.S 


1460 


DATA 1,6,6 


6 , 6 


6,6,6 




1040 Y=Y+1: IF Y=25 THEN Y=24:G0T0 850 


, 6 


,6,6,6,6 


6 , 6 


6,1,1 




1050 GOSUB 11 10: IF BF=1 THEN BEEP:Y=Y~1: 


1470 


DATA 1,1,1,1,1,1 


1,1,1,1 


1,1,1,1,1, 




GOTO 850 


1,1, 










1060 GOSUB1090: GOSUB 1 160 : Y=Y~1 : GOSUB 11 


1480 


DATA 1,1,1 


1 , 1 


1,1,1 




70 


, 1 


,1,1,1,1 


1 , 1 


1,1,1 




1070 FOR 1=0 TO 8:COPY(0,9)-C16, 17), 1 TO 


1490 


DATA 1,6,6 


6 , 6 


6,6,6 




CX*16,Y*8+I),0:NEXT 


, 6 


,6,6,6,6 


6 , 6 


6,1,1 




1080 GOSUB 1 180:Y=Y+1:GOTO 830 


1500 


DATA 1 , 6 , 10 


, 10 . 


, 10 , 1 




1090 PUTSPR I TE0 , ( X* 1 6 , Y*8 ) , 3 , : RETURN 


, 6 , 10 , 10 , 10 


10 , 6 


, 10 ,10,6 




1 100 ' *** MAP CHECK 


,1,1 










1110 AD=&HD0 1 0+Y*4+X¥4 : DA=PEEKC AD ) : DA$=R 


1510 


DATA 1 , 6 , 10 


, 10 . 


, 10 , 1 




IGHT$("0000000"+BIN$CDA),8) 


, E 


, 10 , 10 , 10 


10 , 6 


, 10 , 10,6 




1120 BDS=MID$CDA$,<X MOD 45*2+1,2) 


,1.1 










1130 IF BDS<>"00" THEN BF=1 ELSE BF=0 


1520 


DATA 1,6,6 


6 , 6 


6,6,6 




1 140 RETURN 


, 6 


.6,6,6,6 


6 , 6 


6,1,1 




1 150 ' *** KAKIKAE 


1530 


DATA 1 , 6 , 10 


, 10 , 6 , 10 ,10, 




1160 GOSUB 1110:MID$CDA$,CXMOD4)*2+1 )="1 


10, IB 


, 10,6, 10, 10, 10, 10,6, 1, 1 






" : POKE AD , VALC "&B"+DA$ ) : RETURN 


1540 


DATA 1 , 6 , 10 


, 10 , 6 . 10 , 10 




1170 GOSUB 1 1 10:MID$CDA$, CXM0D4)*2+1 ) = "0 


, ie 


. 10 . 10 , 6 , 


10 , 10 


, 10 , 10 




" : POKE AD , VALC "&B"+DA$ ) : RETURN 


, 6, 


, 1 








1180 ' *** color KAKIKOMI 


1550 


DATA 1,6,6 


6 , 6 


6,6,6 




1190 BF=0: Y=Y-1 : GOSUB 1 1 10 : Y=Y+ 1 : IF BF=0 


. 6 


,6,6,6,6 


6 , 6 


6,1,1 




THEN Dl=l :D2=0:D3=0 :D4=0: GOSUB 1240: 'N 


1560 


DATA 1,1,1,1,1,1 


1,1,1,1 


1,1,1,1,1, 




1200 BF=0:X=X-1 : GOSUB 1 1 10 : X=X+1 : IF BF=0 


1,1, 










THEN D1=0:D2=1 :D3=0:D4=0 : GOSUB 1240: 'W 


1570 


' *** SPRITE DATA 






1210 BF=0:Y=Y+1: GOSUB 1 1 10 : Y=Y-1 : IF BF=0 


1580 


DATA FF, 80, 80, 80 


80, 80, 80, FF, 0,0,0, 




THEN Dl =1 :D2=1 :D3=0:D4=1 : GOSUB 1240: 'S 


0,0,0,0,0 








1220 BF=0:X=X+1 : GOSUB 1 1 10 : X=X-1 : IF BF=0 


1590 


DATA FF, 1 , 1 , 1, 1 , 


, 1 ,FF,0 


0,0,0,0,0, 




THEN Dl=l :D2=1 :D3=1 :D4=0: GOSUB 1240:'E 


0,0 










1230 D1=1:D2=1 :D3=0:D4=0 : GOSUB 1240: GOTO 


1600 


• *** MAP DATA 








1250 


1610 
,0 


DATA 0,0,0,0,0,0 


0,0,0,0 


0,0,0, 15,0 




1240 LINECX*16+D1 , Y*8+D2 )-(X* 16+15+D3 , Y* 






8+7+D4) , , BF : RETURN 


1620 


DATA 0,40,40,0,0 


49 , 40 , 


, 48 ,40 ,0, 




1250 ' *** MIZU IDOU 


0,45 


50,0 








1260 IF P0INTCX*16+8,Y*8-4)=7 THEN XA=X: 


1630 


DATA 0,40,40,0,0 


15,0,0,0,0,0,0,0,0 




YA=Y*8:GOTO 13 10: 'N 


,0,0 










1270 IF POINTCX*16-8, Y*8+4)=7 THEN XA=X- 


1640 


DATA 0,0,0,0,0,0 


0,0,0,0 


0,0,0,0,0, 




1 :YA=Y*8+1 :GOTO 13 10: 'W 













1280 IF POINTCX*16+8,Y*8+12)=7 THEN XA=X 


1650 


DATA 0,0,0,0,0,0 


0,0,0,0 


0,0,0,0,0, 




:YA=<Y+1 )*8:GOTO 1310: 'S 













1290 IF P0INTCX*16+24,Y*8+4)=7 THEN XA=X 


1660 


DATA 0,0,0,0,0,0 


0,0,0,0 


0,4,0,0,0, 




+ 1 :YA=Y*8 + 1 :GOTO 1310: 'E 


14 










1300 GOTO 1320 


1670 


DATA 0,0,0,4,0,0 


0, 15,85 


50 




1310 PAINTCXA*16 + 1 ,YA),7, 1 


1680 


' STAGE 2 








1320 A=USR1C0) 


1690 


DATA 0,0, 14,0,0,5 


5,41 ,50,4, 10,40, 14, 




1330 IF PEEKC&HD100)=0 THEN RETURN 


11 ,54,5,4 








1340 ' *** CLEAR 


1700 


DATA 10,51,50,41 


40, 10,8 


1,14,1,11, 





124 



pOGiAMJfOUSE 



1,54,0, 14, 1 

1710 DATA 45,45,4,11,10,41,46,11,4,1,0,5 

5,51 ,40, 10, 1 

1720 DATA 45,49,15,44,10,0,50,5,15,55,0, 

1, 10,4, 1 ,41 

1730 DATA 51,4,4,11,11,44,2,15,10,0,0,10 

,55,55,55, 10 

1740 DATA 10,10,0,10,15,14,55,55,1,2,4,1 

,0,55,0, 15 

1750 DATA 0,0,0,10,0,0,0,15,55,50 

1760 ' ST3 

1770 DATA 50,0,0,14,44,0,0,44,44,0,0,44, 

41,0, 1 ,4 

1780 DATA 11,0,1,10.11,0,1,10,10,40,4,10 

,4,41 ,4,40 

1790 DATA 4,44,44,40,4,14,50,40,1.14,51, 

0,1,14,51,0 

1800 DATA 1,0,1,0,1,14,11,0,1,14,61,0,1, 

14,51,0 

1810 DATA 4,14,50,40,4,45,44,40,4,40,4,4 

0, 10,40,4, 10 

1820 DATA 11,0,1,10,11,5.41,10,41,0,41,4 

,44,5,40,84 

1830 DATA 48,0,40,44,50,5,40,14,42,53 

1840 ' ST4 

1850 DATA 0,0,0,0,0,0,0,0,0,6,90,0,1,64, 



19,40 

1860 DATA 4,1.40,10,4,40,1,10,8,0,0,20,1 

,50,5,40 

1870 DATA 0,40,1,0,0,40,1,0,0,40,1,0,0,4 

0, 1.0 

1880 DATA 0,40,1,0,5,0,0,50,4,0,0,10,4,0 

,0,10 

1890 DATA 4,0,0,10,4,0,0,90,1,54,15,40,0 

,2,80,0 

1900 DATA 0,0,0,0,0,0,0,40,0,0,0,44,0,0, 

0,44 

1910 DATA 0.0,0,55,0,0,0,4,100,70 

1920 ' ST5 

1930 DATA 15,55,15,54,40,4,40,1,41,54,40 

, 1 ,44,0,40, 1 

1940 DATA 44,19,2,1,41,10,40,1,44,10,5.5 

1 , 4 1 , 4 , 40 , 5 

1950 DATA 41,0,55,41,40,54,40,11,40,4,80 

, 1 1 ,40,4,40, 11 

1960 DATA 41,14,40,11,40,40,40,11,10,10, 

20, 1 1 , 10,5,45,51 

1970 DATA 44,0,0,1,40,44,4,15,40,4,4,10, 

44,4,4, 10 

1980 DATA 14,11,50,40,11,10,1,55,40,10,4 

4, 10,40, 1 1 ,0, 15 

1990 DATA 44,14,6,1,51,55,54,55,55,34 





1 COLOR 15.0,0: SCREEN5 , 2 : DEF I NTA-Z 

20 FORI=0TO9:READA$C0>, ASC 1 >, A 

30 FORJ=0TO1 :FORK=0TO1 :FORL=0TO14 

40 B=VALC"&H"+MID$CA$CJ),K*30+L*2+1 ,2>:> 

50 FORM=0TO7: IFCBANDC2~C7-M> ) )=0THEN70 

G0 PSETC I*16+K*8+M,L),A*J+1 , TOR 

70 NEXT : NEXT : NEXT : NEXT : NEXT 

80 COPYC0.05-C 159. 15)TO"A:M-GRPH.SR5" 

90 OPEN"A:M-DATA.DAT"AS**l 

100 FIELDttl ,203ASSD$:FORI=1TO8:READA$ 

1 1 LSETSD$=A$ : PUT** 1.1: NEXT : CLOSE** 1 

120 OPEN"A:M-SAVE.DAT"FOROUTPUTAS**l 

130 PR INT** 1.0: CLOSE** 1 : BEEP: END 

140 '• • GRPDATA • 

150 DATA 00183B7B02CEECCC1000C0E0E180000 

0000C1E1C1D0109 1D0CCDE1F3C100 

160 DATA FFFFFFFFFFFFFFFEFEFDFDFBFBF7F7E 

FDFDFBFBF7F7FFFFFFFFFFFFFFFFF , 3 

170 DATA 0308172D2C21735ABCBE8A8A82621FC 

020D088FCE4FAFAF9DDC941 1 126F8 

180 DATA 00070F1F1F1E0D357B7D7D7D7D1D000 

0C0E0F000F8FCFCFEFEFEFEEED800. 1 

190 DATA 0071FA742702050817172E2E48437FF 

00C64F4F4C4CCD4942C589090 10E0 

200 DATA 0000712300010307090F131F3F3C000 

0F0F8F888B8F0F8F8F0A0G060E000.5 

210 DATA 2070F3722107181 10B133648837E073 

8CG 193D797272FAF4A408E850 10E0 

220 DATA 002060210000070F070F0F3F7C01000 

038FEFEFEFCECF4A8D8F070E0E000 . 5 

230 DATA 0F30242E2F27171717130B0B0B08070 

48A5 12E603048AC94C4128A9E10E0 

240 DATA 000F1F1F1F1F0F0F0F0F07070707000 

0048EC080C0B0D0E8F8ECF4E0E000 , 5 

250 DATA 1C6398BC9E4E4E5F2F2510170A08070 

40ECF4E84E01888D0C86C12C17EE0 

2B0 DATA 001C7F7F7F3F372F151B0F0E0707000 

00406840000E0F0E0F0F0FC3E8000 .5 

270 DATA 000000000305070B0F161E0C0703010 

0000000F0F8FC0237075F8EFEFCFC 

280 DATA 0000000000030306060D0D030001000 

000000000F000FCCAFAAG740CF800 , 7 

290 DATA 000000000305070B0F161E0C0703010 



0000000F0F8FC1E1F3F0E0EFCFCF8 

300 DATA 0000000000030306060D0D030001000 

000000000F000ECEEC2F4F408F800.7 

310 DATA 0000000000000003040408080C07000 

00000000000C03068F8F4640CF600 

320 DATA 0000000000000000030307070300000 

0000000000000C0F0F0F8F8F00000.7 

330 DATA 0000060B0A0B09081F2D2B2E26223E0 

0000G0B9797939 1 DFGCDC5C4C447C 

340 DATA 0000000G0707070700181C1C1C1C000 

00000060E0E0E0E80983838383800, 13 

350 '• • SCENEDATA • 

3G0 DATA 0000100000000000000110000000000 

0080020000000G 0000000002600000020 9000000 

00020000 1 100000000000000 100000040 F0 40 000 

04040400FF040404000226262F888004040 10002 

262F8988822F8D898882232F8988FF0 10 10 10000 

0101F1000561 

370 DATA 1111111111100010000110170001011 

05830000 1 1000680701 1010300 101 10000 1000 1 1 

009000041 1300004001 111111111 1FFFFFFFFFFF 

200F0 101FF2F020 1F1FF6F1F4545FF220A0 101FF 

2F1F45F1FF2008F101FFA888898FFFFCCCCF26FF 

FFFFFFFFF242 

380 DATA 000100000100000000000000005000 1 

0028 170000000G8000000092G 1000000000300 10 

0002000000000000000 1 00000 10O0000F40600F0 

004408000444444F1 1 1F22FCF2000000 1 4020002 

223F8F0001 1 1 15 1F44F2223F88888000 1 108000F 

001 10F000642 

390 DATA 100000000 100000090000000200100 1 

0080 1000100040 G63000050062G00100830000 10 

01004070000000000001000000001 F081 40 40 0F0 

08140400022A3F8CF00F08 13F420F888F337F444 

4F733F888F135F55C4F00FC8F3A220004841800F 

00484180F242 

400 DATA 8000G70008700300300000400014000 

2 10000050600030000070000900070300 1000500 

030000200000500500080076700080412202 180 1 

5 1F75F5C48CFA22FFA22FFC64C4F1 1339F4C4E40 

3288084A01F6CF4C4F1 19FE66EFA84CCF55F 1 3 10 

882002120254 

410 DATA 0000000009060004007000000000000 

0000300000303880000000088302000104000000 

000000000070030006000000000000202 1 120408 

A8A9F22G20202 162040 13 13 1 F6444 1 F5F5CG444 1 

9 19 19F6F808F8FAA23208086880 10 19 19FCC4540 

809888010164 

420 DATA 0000000000000111100000111151000 

1 102801 1001 106601 1001 102591 1001 108661 100 

011711 1000001 1 1 1000000000000000000000000 

00FFFF00000FFFFFF000FF2F8AFF00FF0582FF00 

FF2FF3FF00FF0122FF000FF1FFF00000FFFF0000 

000000000352 



430 DATA 222221100122000111012222011011 
220001 1001222221 100100000222200090022002 
0909022002009002200200000222200000000000 

00000000013000000000000000000000000000000 
0000000000000000000000000000000000000000 
0000000000270 



10 
20 
30 



C M ) MSX2 VRAM 128KB 

1990 RICHARD- NAKA & SUOH & TAMA1 



50 COLOR 15,0,0: SCREEN5 , 2 : CLEAR500 . &HA000 
: DEFUSR=65 : DEFUSR1 =68 : GOTO760 

60 '• • MAIN • 

70- GOSUB230: IFT1THEN6 10 

80 GOSUB220:S=1NTCCS-1 >/2>: IFS<0THEN70 

90 FOR1=0TO1 :OC I )=PC I >+CS=l+I >*CPC I ><9)- 

CS=3-I*3)*CP>: I )>0>:NEXT: 1=0(1 >: J=QC0> 

100 GOSUB260: IFM>0ANDM<6THEN70 

110 PC0)=QC0):PC 1 >=QC 1>:GOSUB240 

120 IFM=8THEN180 

130 I FM=60RM=7THENR=M-6 : G0SUB3 1 

;40 N=PEEKC&HA064+PC 1 )*10+PC0>) 

150 IFCNAND2"P)>0THEN610 

1G0 IFM=9ANDG=PC2)THEN690ELSE70 

170 '• • GET • 

180 G=G+1 :PLAY"05CEDF02" 

190 POKE&HA000+PC 1 )*10+PC0),0:FORI=0TO3 
200 COPYC 108.42J-C121 ,53>, ITOC84+PC0 )*16 
-P<1 >*8,26+PCl >*16>, I: NEXT: GOTO 140 

210 '• • SUB • 

220 S=STICKC0>ORSTICKC 1 >: RETURN 

230 T1=-CSTRIGC0)ORSTRIGC 1 >): RETURN 

240 VPOKE&H7602 . S*8 : VPOKE&H7606 . S*8+4 

250 PUTSPRITE0,C82+PC0)*16-PC 1 )*8.22+PC 1 

)*16), 1 :PLAY"B": RETURN 

260 M=PEEKC &HA000+ 1 * 1 0+J > : RETURN 

270 C0PYCM*16, 190>-CM*16+15,205), 1TOC82+ 

J*16-I*8,24+I*16),K, TPSET : RETURN 

280 FOR 1 = 1 TO2000 : NEXT : SETPAGEP , P : FOR I =0T 

0105: A=I*2:LINE<0,A)-C255, A) , : LINEC0 . 2 1 

1 -A )-< 255 . 2 1 1 -A ) , : NEXT : A=USR< ) 

290 FORI=0TO3:SETPAGE3-I , 3-1 : CLS: NEXT 

300 PUTSPRITE0, C0,216):A=USR1C0):RETURN 

3 10 P=CP+1+CR=1 )*2)M0D4: IFP<0THENP=3 

320 SETPAGEP . : VDP< 5 )=V 1 : VDPC 6 )=V2 

330 VDPC 12 )=V3:PLAY"C": RETURN 



125 



340 



TITLE 



350 P=0: A=USRC0):L1NEC98, 124 )-( 158 . 106 ) , 

4.BF:LINEC98.97)-C158. 105).5,BF 

360 DRAUTS8C15BM98, 126U10E4R4F3E 1 0R4F4D1 

7L13U6G6H3D3L7":PAINT<0,0), 1 , 15 

370 A=USR 1 C ) : PLAY"S9M 1 000O2L64CDCDCD" 

380 GOSUB230: IFT1=0THEN380 

390 FORI = 1T016:C0PYC96, 84-1 )-< 160 . 128-1 ) 

T0C96.83-I ):NEXT:OPEN"GRP: "AS**1 :SC=1 

400 PRESETC97, 120): PRINT** 1 . "SCENE 1" 

410 GOSUB220:SC=SC-CS=1 )*CSC>1 )+(S=5)*(S 

C<CL):PRESET( 137, 120 ): PRINT** 1 ,SC; " " 

420 GOSUB230: IFS>0ORT1=0THEN410 

430 CLOSE* 1 : PLAV05CD02 " : GOSUB280 

440 'LINE<96,68+I*2)-C 160 , 68+1*2 ), : LINE 

C96, 127-1*2 )-C 160. 127-1*2 >. : NEXT 

450 '• • SCREEN • 

460 0PEN"A:M-DATA.DAT"AS**1 :FIELD**1 ,203AS 

SD$ : GET** 1 . SC : CLOSES 1 : PUTSPR I TE2 , C , 2 1 7 ) 

470 A=USRC0):FORI = 1TO203:POKE8=H9FFF+I , VA 

LC"&H"+MID$CSD$. I , 1 )):NEXT 

480 COPY"A:M-GRPH.SR5"TOC0, 190). 1 

490 FOR1=0TO9:FORJ=0TO10:COPY<0. 190)-< 15 

.205). 1TO(76+J*16-I*8!26+I*i6")."0 "" 
500 NEXT : NEXT : K=0 : FORI =0TO9 : FORJ=0TO9 
510 GOSUB260: IFM=1ORM>5THENGOSUB270 
520 NEXT : NEXT : FOR I =0TO2 : COPYC , 23 )-C255 . 

18S),0TOC0.23),I + 1: NEXT : FOR I =0 T09 
530 FORJ=0TO9:GOSUB260: IFM> 1 ANDM<6THENF0 
RK=0TO3 : GOSUB270 : M=<M- 1 )M0D4+2 : NEXT 
540 NEXT : NEXT : SETPAGE0 . 1 



550 L1NE<0, 190)-( 158,205).0,BF:P=0:S=2 
560 A=USR K ) : FOR I = 1 T04 : R= 1 : G0SUB3 1 
570 FOR J= 1 TO200 : NEXT : NEXT : D=2 : G=0 
580 FORI=0TO2:PC I )=PEEKC&HA0C8+I ) : NEXT 
590 GOSUB240: IFSC=8THEN7 10ELSE70 

600 '• • MISS • 

610 PLAY"02EDCEDC":C0L0R=< 1.7.0.0) 
620 x=82+PC0)*16-P< 1 )*8: Y=22+PC 1 )*16 
630 VPOKE&H760E , 36 : FOR I =0TO3 : FORJ=0TO3 1 
640 PUTSPR I TE2 . (. X . Y-44+J ) . 1 , 8 : NEXT : NEXT 
650 COLOR=C 1 .0.0.0 ):GOSUB280 
660 IFCL<SCTHENOPEN"M-SAVE.DAT"FOROUTPUT 
ASH 1 : PR I NTt* 1 , SC : CLOSE** 1 : CL=SC 
670 GOTO350 

680 '• • CLEAR • 

690 PLAY"05CDEFGAB02":SC=SC+1 

700 GOSUB280:GOTO460 

7 10 FORI=1TO2000:NEXT:FORI=0TO1 :FORI=0TO 

1 : FORJ=0TO7:R=1-I : G0SUB3 10 : F0RK=1 TO200 

720 NEXTK.J, I : PLAY"05L8CCCCD0EEFR8BAG02 

730 GOSUB230: IFT1=0THEN730 

740 GOSUB280:GOTO350 

750 '• • LOAD&READ • 

760 FORI=0TO9:READAS:FORJ=0TO31 
770 A=VAL("&H"+MID$CA$, J*2+l .2)) 
780 VPOKE&H7800+I*32+J,A:NEXT:NEXT 
790 FORI=0TO1 :READAS:FORJ=0TO15 
800 A=VALC"&H"+MID$CA$, J*2+l .2)) 
8 1 VP0KE&H74 1 0+ I *32+ J . A : NEXT : NEXT 
820 FOR1=0TO1 1 :READA,B,C 
830 C0L0R=(2+I ,A,B,C):NEXT 



840 FOR1=0TO3:SETPAGE0.3-1 :CLS:NEXT 
850 0PEN"A:M-SAVE.DAT"F0RINPUTAS**1 
860 INPUTW1 ,CL: CLOSE** 1 :V1=VDPC5) 
870 V2=VDP<6):V3=VDPC12):GOTO350 

880 '• • SPRDATA • 

890 DATA 03 1FF7B7978FDF7FFFFFFFFF5F6F30 1 

FF8CFCDC991FFFEF2F3E5E1E1D1E306FC 

900 DATA 00010F4F6F703F00000000003F1F0F0 

000F0F2F6EE1CF00C0C1A1E5EEEFCF800 

910 DATA 031F17F7978FDF7FFEFFFDF55B6D301 

FF8C8CFC9F1FFFEC202E3F1F1EDC306FC 

920 DATA 00010F0F6C733F000101030B3D1F0F0 

000F0F0F60EFCC03CFCDCFEFEF2FCF800 

930 DATA 1FF7B7978FFF7F40DEBFBFBFBFCF701 

FE0F8CFCD89F1FBFE07E5E5E3C60C38E0 

940 DATA 000F4F6F703F003F3F6F7F7F7 13B0F0 

000C0F0F2768EFC00F8DAFAFCF8F0C000 

950 DATA 1F17F7978FFF7F4350DCBFBFBFDE603 

FC0F8C8CFC9F1FBFE7F7F3F2F52060CF8 

360 DATA 000F0F6F703F033C3F3B7F7F4F3F1F0 

00080F0F036CEFC008080C0D0BCF8F000 

970 DATA 00 1F3F7DF373391D3E79F37339 1D0E0 

700BFFFFBE6E672BBFFFBE6E672FBFD8F 

980 DATA 00000F1E3C1C0E060F1E3C1C0E06030 

00000 1E3C7838 1C0C1E3C7838 1C0C0600 

990 DATA 4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4 

A. 48484848484848484848484848484848 

1000 '• • PALET • 

1010 DATA 1.2.4.1.4,6,1,3.1,2.4.2 
1020 DATA 4,2,1,6,4,1,4.4,0,7,7,0 
1030 DATA 7,3.2,7.5.3.5.1,5.7.2,7 




POWER PLA^ 



m^75mt]2]^-'j\zmm 



10 SCREEN 1 , 0,0:WIDTH32:KEYOFF:COLOR15, 1 , 

1 :DEFINTA-Z:DIMENS( 1 5 ) , EC 15 ) , T 1C 1 5 ),T2( 1 
5),T3( 15),T4( 15),T5C 15),MMSC 15),MASC 15), 
MSC20),KC 15):F=1 : X=8 : Y=6 : XY=5 : D=6 : LV=1 :H 
P= 1 : UlM= 1 2 : AM= 1 3 : T5 C 1 )=0 : AP=2 : R=RNDC -T 1 M 
E ) : ONSPR I TEGOSUB360 

20 CLS:LOCATE10,5:PRINT"POUJER PLAY":LOCA 

TE6, 7: PR I NT "THE TOWER OF GAALD" 

30 FORI=320TO751 :A=VPEEK( I ):VPOKEI , AORA/ 

2 : NEXT : CLS : PLAY"'*' 1 5T200O4BACDEFABGABB" , " 
V15T200O3DCEFGGCDGCDD" 

40 CH=0 : CS=&HG0 : CE=&H77 : F0RCH=CS*8T0CE*8 

+7 : READAS : VPOKECH , VALC " &H"+AS ) : NEXT : FOR I 

= 1 T06 : SPS=" " : FORJ=0TO7 : READSS : SPS=SP$+CH 

RSC VALC "&H"+S$ ) ) : NEXT J : SPR I TESC I *2 )=SPS : 

NEXT I : VPOKE8204, 128 : VPOKE8205 ,224: VP0KE8 

206,80 

50 F0RI = 1T013:READMS( I ): NEXT : FORI = 1 TO 15 : 

REAOENSC I ),E( I ) : NEXT 

60 F0RI=1T013:READMMSC I ) : NEXT 

70 F0RI = 1T012:READTK I > , T2C n , T3C 1) , T4C I 

) : NEXT 

80 F0RI=1T012:READK( I) : NEXT 

90 L0CATE4, 1 1 : PRINT" i — i i 1 " : LO 

CATE8, 17: PRINT" ' ' " : FORI = 1 2T0 16 

: LOCATES, I: PR I NT" I I " : NEXT : LOCA 

TE4, 12: PRINT" I l":L0CATE4, 13: PRINT" ' — '" 

100 GOSUB520:FORI=0TO8:MPS( 1+1 )=MID$CNMS 

CF), 1*5+1 ,5): NEXT 

1 10 F0RI=3T09:F0RJ=5T01 1 : LOCATEJ , I : PR I NT 

"h " : NEXT J , I : FOR I =4T08 : F0RJ=6T0 1 : LOCATEJ 

, I : PR I NT'" ":NEXTJ, I 

120 F0RI = 1T05:MA$CI )=MID$CMP$< XY ) , I , 1 > : N 

EXT 

130 EM=0:EX=RND( 1 )*5+12 : EY=RND< 1 )*5+8 

140 L0CATE8,3:PRINTNASC 1 ): LOCATE 1 1 ,6:PRI 

NTMA$< 2 ) : L0CATE8 , 6 : PR I NTMASC 3 ) : L0CATE8 , 8 



: PR I NTMASC 4 ) : L0CATE5 , 6 : PR I NTMASC 5 > 

150 S=STICKC0):X1=CS=7)-CS=3):Y1=CS=1 >-( 

S=5 > : X=X+X 1 : Y=Y+Y 1 

160 I FXY=T 1 C F ) ANDT 1(F) O0THENT 1 ( F )=0ELSE 

I FXY=T2 ( F ) ANDT2 ( F ) <>0 THENT2 C F )=0ELSE I FEK 

> =T3 ( F ) ANDT3 ( F )< > 0THENT3 ( F )=0 ELSE I FLV>=T 

4(F)THENT4(F)=0 

170 IFT1(F)+T2(F)+T3(F)+T4(F)+T5(F)=0THE 

NL0CATE9 , 5 : PRINT" i " : PLAY""v'15T200O4BCBA" : 

T5(F)=1 

180 IFF=13ANDXY=5THENGOSUB530 

190 IFS=10RS=30RS=50RS=7THENQ=^PEEKC6144 

+X+Y*32 ) : D=S+ 1 : I FQ= 1 04THENX=X-X 1 : Y=Y~Y 1 E 

LSE IFQ= 1 B5THENGOSUB250ELSE I FQ= 1 06THENGOS 

UB290ELSE I FQ= 1 07THENGOSUB300ELSE I FQ= 1 08T 

HENG0SUB3 1 0ELSE I FQ= 1 09THENGOSUB350 

200 I FX<5THENXY=XY~ 1 : X= 1 1 : GOTO 1 20ELSE I FX 

>1 1THENXY=XY+1 : X=5 : G0T01 20ELSEIFYC3THENX 

Y=XY~3 : Y=9 : GOTO 1 20ELSE I FY>9THENXY=XY+3 : Y 

=3:GOTO120 

210 IFXY=K(F)THENLOCATE8,6:PRINT"m" 

220 PUTSPR I TE0,(X*8,Y*8), 10,D 

230 IFEM=0THENSPRITEON: EX=EX+RNDC 1 )*3-l- 

CEX<14)+(EX>18):EY=EY+RNDC 1 )*3- 1 -C EY< IB ) 

+CEY>14)ELSEGOTO150 

240 PUTSPR I TE1, CEX*4,EY*4), 15, 12:GOTO150 

250 IFF=60RF=80RF=12THENR0=R0+1 :ME=7ELSE 

I FF=2 THENAP=5 : ME=2 : WN=2 ELSE I FF= 1 THEN2 7 

ELSE I FF=5 THENAC=2 : ME=4 : AN=4ELSE I FF= 1 1 THE 

N280ELSEIFF=4ORF=8THENMG=MG+2 : ME=6ELSEP0 

=P0+2:ME=1 

260 L0CATE9, 13 : PR I NTMS(ME ) : PLAY"V 15T200O 

4ABCEFGBCAGEABAA" : FOR I =- 1 TO0 : I =PLAY(0 ) : N 

EXT : GOSUB460 : L0CATE9 , 5 : PR I NT" ' " : GOSUB520 

:T5(F)=2:X=X-X1:Y=Y-Y1 : RETURN 

270 IFAP=5THENAP=20 : ME=3 : WN=3 : GOTO260ELS 

ERETURN 

280 I FAC=2THENAC= 10 : ME=5 : AN=5 : GOTO260ELS 

ERETURN 

290 LOCATE10, 13:PRINT"H.P t)\>J!.< " : PLAY"V15 

T200O6 ABDFEGBEFDBABA" : FOR I =- 1 TO0 : I =PLAY( 

0):NEXT:GOSUB460:X=X-X1 : Y=Y~Y1 :HP=LV*10: 

GOSUB520: RETURN 

300 F=F-1 :EK=0:PLAY"V15T200O3CBA": IFT5(F 
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+ 1 )=1THENT5(F+1 )=0 : RETURN 1 00ELSERETURN 10 



310 IFK(F)=0ANDF<12THENF=F+1 :EK=0:PLAY"V 

15T200O3BABA"ELSEIFF=12THEN330ELSERETURN 

320 IFT5CF-1 )=1THENT5(F-1 )=0 : RETURN100EL 

SERETURM100 

330 IFRO=3THENLOCATE9, 12 : PRINT "GAALDOOdA 

": LOCATES, 13: PRINT""" A-, ,1.-^ *V : PLAY"V15T2 

5002 ARARARARA" : F=F+ 1 : FOR I =- 1 TO0 : I =PLAY( 

) : NEXT : GOSUB460 : RETURN 100 

340 LOCATES, 12 : PRINT" I TASKaC*" : LOCATES , 1 

3:PRINT" r JE>of">r ":LOCATE10, 14: PRINT "HVXtA, 

" : PLAY" V 1 5T200O3BARBAC" : FOR I =- 1 TO0 : I =PLA 

Y( ) : NEXT : GOSUB460 : RETURN 150 

350 K(F)=0:LOCATE8,6:PRINT"" ":PLAY"V15T2 

50O6C32": RETURN 

360 SPRITEOFF:MO=F+RND( 1 )*1 .5:L0CATE5, 12 

:PRINTMIDSC"pqprstrsqstssq",MO, 1 ):PLAY"V 

15T250O3DDCB":FORI=-1TO0: I =PLAY(0 ) : NEXT : 

SY= 1 3 

370 LOCATES, 1 2 : PRINTENS(MO) : F0RI=13T016 : 

LOCATE 10, I :PRINTM$( 1-5 ) : EH=E(M0)*5 : NEXT 

380 S=STICK(0):Y3=(S=1ANDSY>13)-(S=5ANDS 

Y< 1 6 ) : LOCATES . SY : PR I NT" " : SY=SY+Y3 : LOCAT 

ES,SY:PRINT"c" 

330 I FSTR I G( )=0THEN380ELSE I FSY= 1 3THEN4 1 

0ELSE I FSY= 1 4THENGOSUB460ELSE I FSY= 1 5THEN4 

30ELSE450 

400 RETURN 

410 IFLV+AC+RNDC 1 )*5>=E(M0)+RND( 1 )*5THEN 

EH=EH-( 1 +AP ) : PLAY" V 1 5T250O4ABAB"ELSEHP=H 

P-( 1+E(M0)¥2): PLAY"V15T250O4AC" 

420 I FEH< 1 THEN470ELSE I FHP< 1 THEN4S0ELSEFO 

R I =0TO 1000: NEXT : GOSUB520 : GOTO380 

430 IFNG<1THENPLAY"V15T200O3D":GOTO370EL 

SEGOSUB460: LOCATE 10, 1 3 : PRINT"*!*"} ! ! ! ! !":M 

G=MG- 1 : PLAY"V 15T25B03CDCDCDCD" : GOSUB520 

440 IFRND(1)*18 + K8ANDM0<14THENL0CATES, 1 

3 : PR I NT" JtmiaSto^oft" : FOR I =0TO2000 : NEXT : GO 

SUB460 : GOTO470ELSELOCATE3 , 1 3 : PR I NT"C.-5tf?f " 

(WTofe" : FORI =0TO2000 : NEXT: GOSUB460 : GOTO370 

450 IFP0<1THENPLAY"V15T2BB03D":G0T0378EL 

SEGOSUB460:LOCATE10, 13 : PR I NT "H. Pt)\\l.< ! !": 

PLAY"V15T250O7CGDB":PO=PO-1 : HP=LY*18 : GOS 

UB520 : FOR I =0TO 1000 : NEXT : GOSUB460 : GOTO370 

460 F0RI=12T016: LOCATES, I : PRINTSPC( 18 ) : N 

EXT : RETURN 

470 GOSUB460: IFMO= 15THEN550ELSEPLAY"V 150 

5ABABB": LOCATES, 12 : PR I NT"5'o/i ! ! ":EK=EK+1 : 

XP=XP+E(MO): IFXP<LY*5THENFORI=-1TO0: 1=PL 

AY(0 ): NEXT :GOSUB460: PUTSPR I TE1 , (EX*10,EY 

* 1 ) , , 1 2 : EM= 1 : RETURN 150 

480 PLAY"V15T250O5BCBARBAA":XP=0:LV=LV+1 

:LOCATE10, 14: PRINT"LEVEL UP" : FOR I =- 1 TO0 : 

I=PLAY(0):NEXT:GOSUB460:PUTSPRITE1 , (EX*1 

0,EY*10),0, 12:EM=1 : GOSUB520 : RETURN 1 50 

490 FORI=0TO1000:CLS:PLAY"V15T250O2FEDEC 

CGEBFAEE": LOCATE 1 1 , 5 : PRINT"GAME OVER":FO 

RI=0TO1 :PUTSPRITEI ,(1,1 ). : NEXT: FOR 1 = 100 

0TO0STEP-1 :L0CATE5, 12 : PRINT"CONT INUE (RE 

TURN)-"; I¥100: IFINKEY$=CHR$( 13 )THENCLSEL 

SENEXT : RUN 

500 PLAY"V1 5T250O4BAGFEBAA" : EK=0 : XP=0 : HP 

=LV*5: IFT5(F)=1THENT5(F)=0 

5 10 I FF= 1 3ANDXY=5THENXY=8 : GOTOS0ELSES0 

520 LOCATE13,3:PRINTUSING"n KttF" ; F: LOCAT 

E13,5:PRINTUSING"o H.P8H8 LVH8" ; HP; LV: LO 

CATE 1 3 , 6 : PR I NT "u " ; M$( WN ) ; SPC ( 5 ) : LOCATE 1 

3 , 7 : PR I NT" v " ; NSC AN ) ; SPCC 5 ) : LOCATE 1 3 , 8 : P 

RINTUSING"a x88 w x88" ; RO; MG: LOCATE20 , 9 

: PR I NTUS I NG"b x««" ; PO : RETURN 



530 PLAY" V 15T250O3DRDRDRDRDDABC" : PUTSPR I 

TE0, (64,72), 10,2:PUTSPRITE1 , (64, 32 ) , 15 , 1 

0: LOCATES, 1 2 : PRINT"GAALDffl" : LOCATE 1 2 , 13 :P 

RINT"0) 'vSfc" ":FORI=0TO3000:NEXT 

540 LOCATES, 1 3 : PR INT"«" V WittT LT": LOCATE 1 1 

, 14:PRINT"<*l*tt ! ! ! " : FORI=0TO3000 : NEXT: GO 

SUB460:FORI=1 1 T01 3 : L0CATE4 , I :PRINTSPC(3) 

:NEXT:L0CATE4, 1 1 : PR I NT "f g" : L0CATE4 , 12: PR 

INT"de":MO=15:GOTO370 

550 LOCATES, 12 : PRINT"GAALD" : LOCATES , 13 :P 

RINT" r ir >fft ":PLAY"V15T250O2ABRAABABA 

BB" : FOR I =- 1 TO0 : I =PLAY( ) : NEXT : G0SUB468 : L 

0CATE18, 14:PRINT"tf->fc*fc*! ! " : PLAY"V15T250O 

4ABCDEFAABCAEFADABABAA" , "V14T25803BBABDB 

ADEFADAABBADABB":F0RI=8T0-1 : I=PLAY(0 ) : ME 

XT 

560 GOSUB460: LOCATES, 12 : PRINT"K I r 4S" ! ! ! ! 

": FORI =5T08: PUTSPR I TE1 , (64, 1*8), 15, 10:FO 

RJ=0TO500 : NEXTJ , I : FORI =0TO5000 : NEXT 

570 CLS:LOCATE7,5:PRINT"CONGRATULATIONS" 

: PUTSPR I TE0, (108,56), 10 , 6 : PUTSPR I TE1 ,(11 

6,56), 15, 10:PLAY"V15T250O5BAGEFADA","V14 

T250O6AGEBCEFC" : GOTO570 

588 DATA FB , 00 , DF , 00 , FB , 00 , DF , 00 , 00 , 60 , 7 

0,30,88,84,82,08, 18,00, 18, 18, 18, 3C,7E,3C 

,00,00, 18,34,3C, 18,00,00 

530 DATA 03,85,53,21 ,0F, 12, 12,36, C0,A1 ,S 

A , 84 , F8 , 48 , 48 , 6C , 88 , 48 , 4B , 44 , 46 , 44 , 43 , 70 

,88, 1B,D2,27,67,22,CC, IB 

688 DATA 00 , 7E, 7E, 7E , 7E , 7E, 7E , 00 , 00 , 34 , 7 

A,00,7E,7E,7E,80, 18.34.3C, 18,24,3C, 18, 18 

,00,06,00, IE, 00, 7E, 00, 00 

610 DATA 00,34,76,76,56,76,76,80,00,60,6 

0, 18,88, 14,8A,80,88,54,7C,54,7C,54,7C,7C 

, 1 8, 24, 3C, 38, 46, 36, 10 , 3C, 08 , 08 , 00 , 3C, 7A, 

FD,66,00, 1 8, 24, 3C, 38, 46, 36, 10, 3C 

620 DATA 00,58,3D,32,5C,BA,34,7E, 18, 3C, A 

5,FF,7E,3C,3C,3C,B8,38.4C,BE. 1E.3E.3C, 18 

,CB,E8,78,3S, ID, BE, 06, IS , 88 , 42 , BD, 3C, 88 , 

3C, 5 A , 88 , 88 , 48 , DF , DF , DF , DF , DF , 4B 

638 DATA 18 , 3C, 3C , 1 S , 66 , 7C, 18 , 3C , 18 , 38 , 3 

C, 1D,22,3C, 18.3C, 18 , 24, 3C, 98 , 46 , 36 , 18.3C 

, 18,BC,3C,B8,44,3C, 18.3C, 18 , 24 , 5A, DB, BB , 

3C, 18, 18,B8,3C,7E,5A,7E,3C,3C,B8 

648 DATA \i°-l*A., Bftok^kk" , T Jt^tAo**, ftffQ* 

^o,t5-3fc-x-,T<4i»4,*ot- ,ftfttr-5,ctf "*,*«% <*y, 

658 DATA T&Vti, 1 , *\>t, 2 , *" l-?S.~ , 3 , **tt°ft , 4 , * 

i>*r , 5 , ^>tj.° , 6 , tto*>*tt e », 8 , ****>» , s , ttoii°-a^t 

, 1 1 , *)<*.3:A,a<*, 13,C**tt, 15,5ofc"»fc* ,20,ttO"3u& 
" *fc" ,25 , ft' *><*>*,£' , 38 , tr *>9>Z£~ , 35 

668 DATA h ' 1 ' hh ' ' * ' hh j h h"V 

' 'hh' ' 'h' 'h'h' ,h" khhhh' ' 'hh' 'hhh' 'h' ' lhh 

'h hhh' 'h' 'h'h' ,h' 'hhh' 'h'hhl' 'h' ' ' 

hh' kh' 'h'h' ' ' 'hhh' ' h ' hh jh ' , h ' ' ' hh ' ' ' ' hhk 

hh'h'h' 'h' 'hh' lhhh" ' h ' ' h ' h ' , hh 1 ' hh " 

j 'hhh' '''h''h'h''h'h'"h' 'khh'h'h' 'h'hh 

678 DATA h ' khhh ' ' ' ' hh lh ' h ' ' hh hh'h'h 

' jhh' ' 'h'hh'h' ,h" ' 'hh' 'h'hhk' ' 'h' 'hhhl 'h 
'h' 'h' ' 'hh' ' 'h' 'h'h' ,h' ' 'hh' ' ' 'hh' ' ' 'h' ' 
h'hk'h'h''h'hlhh'h'hh'h'hh,h' 'hhh' 'h'hh' 
' 'h' 1 'hhh'h' 'h' 'h' 'khhh' 'h' 'h'h' ,h" lhhhh 

' ' 'hh' 'hhhk'h' ' jhh'h hhh' 'h' 'h'h' 

68B DATA h ' k ' hh ' ' ' ' hh ' h ' ' h ' ' h ' h ' ' hhh ' ' h ' 
h'hh" lhh'h'h' ,h' jhhhhl' ' hh " hh ' " h ' h ' h ' 
'h' 'h' ' 'hhh' kh' 'h'h' ,h* ' 'hh'kh'hh' ' ' 'h' ' 
hhh" 'h'h' "h' ' 'hh' ' 'h' 'h'h' 

638 DATA 5,5,1,1,1,3,1,1,5,8,3,2,1,3,2,2 
,1,1, 5, 4, 5, 6, 2, 5, 2, 7, 2, 6, 1,1, 8, 15, 3,6, 3, 
8, 1,1, IB, 10, 7, 3. 5, 18, 6, 4, 2, 38 
78B DATA 4,3.7,5,3,3,1,3,1,3,3,3 
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